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The CALL/360-OS PL/I compiler (to be used with 
the Ci^LL/360-OS system on an IBM System/360 
Model 50 or higher) is described in the four 
volumes of this publication. The publication 
is addressed to system programmers and program 
systems representatives who require a detailed 
knowledge of the compiler. It contains a 
general overview of the compiler and detailed 
information on the compiler and runtime routines 
and macros that perform required functions. 
Additional information required to understand 
CALL/360~OS PL/I compiler operations is provided 
in several appendices. 

Volume I contains a general description of 

the compiler, a section on compiler operations, 

and a directory to compiler routines. 



PREFACE 



This four-voltune publication is addressed to system programmers and 
program systems representative who require a detailed knowledge of 
the CALL/360-OS PL/I compiler. It contains a general overview of the 
compiler and information on the compiler and runtime routines and 
macros that perform required functions. 

Additional information required to understand CALL/3 6 0-OS PL/I compiler 
operations is provided in several appendices (see Volume IV) • Appendix 
J contains tables of macro/module calls and summary listings of 
CALL/360-OS compiler and runtime routines, indicating where each routine 
is described in this publication. 

The reader of this manual should have access to the CALL/3 6 0-OS PL/1 
Language Reference Manual (GH20-0700) and the CALL/ 3 6 0-OS Terminal 
Operations Manual (GH20-0787) . 

Terminal Egui valence 

Terminals which are equivalent to those explicitly supported may also 
function satisfactorily. The customer is responsible for establishing 
equivalency. IBM assumes no responsibility for the impact that any 
changes to the IBM- supplied products or programs may have on such 
terminals. 
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This edition, GY20-0567-1, is a major revision obsoleting GY20-0567-0. 
It applies to Version 1, Modification Level 1, of CALL/360-OS and to 
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in new editions or Technical Newsletters. 

Technical changes to text are indicated by vertical lines in the left 
margin. A revised illustration or chart is indicated by the symbol 
• to the left of the caption. 

Changes are continually made to the information herein. Therefore, 
before using this publication, consult the latest System/360 SRL 
Newsletter (GN20-0360) for the editions that are applicable and current. 

Copies of this and other IBM publications can be obtained through IBM 
branch offices. A form has been provided at the back of this 
publication for readers' comments. If the form has been removed, 
address comments to: IBM Corporation, Technical Publications 
Department, 112 East Post Road, White Plains, New York 10601. 



© 



Copyright International Business Machines Corporation 1970, 1971 



CONTENTS - VOLOME I 



Section 1 - General Description 1 

Philosophy • 1 

Objectives 1 

Facilities 2 

Approach ••..•». 2 

Compiler Organization ••... 4 

Data Organization 7 

Naoning Conventions • 10 

Compiler Limitations 10 

Compiler-Time and Rimtime Error Messages. . . • • 10 

Section 2 - Compiler Operations 12 

Overview - 12 

Phase 1 12 

Entokening • 13 

General Statement Processing 14 

Declaration Processing • . 15 

Input/Output Statement Processing 17 

Expression Processing 23 

Code Generation •••••. 29 

Phase 2 or Wrap-Up Phase ••••. 33 

Support 35 

Executive Interface 36 

Section 3 - CALL/3 60-OS PL/I Compiler Routine Directory 37 

Introduction 37 

Part 1 - Controllers 37 

Statement Category ($CATEG) 38 

Phase 1 Initializer ($CCONT) 39 

controller ($CNT) 41 

Phase 2 Initializer ($WCONT) 43 

Part 1 Logic Diagrams • 45 

Chart 1. Statement Category ($CATEG) 45 

Chart 2. Phase 1 Initializer ($CCONT) . • 46 

Chart 3. Controller ($CNT) 47 

Chart 4. Phase 2 Initializer ($WCONT) 53 

Part 2 - Entokening 54 

Increment Scan Index ($ASIDX) 55 

Entoken ($ATKN^ $ATKN2) 56 

Search-Insert ($FIND) • 59 

Get Non-Blank ($FNB) 61 

Part 2 Logic Diagrams 62 

Chart 5, Increment Scan Index ($ASIDX) 62 

Chart 6. Entoken ($ATKN, $ATKN2) . • 63 

Chart 7. Search-Insert ($FIND) 72 

Chart 8. Get Non-Blank ($FNB) 74 

Part 3 - General Statement Processors ••.. 75 

Assignment Generator ($ACGEN) 76 

PROC Generator ($APRC, $APRC2) 77 

BEGIN Generator ($BEGIN) 79 

On-Unit Specification Analyzer ($BONSA) 80 

GO Generator ($BRNH^ $BRNH2) 81 

CALL Generator ($CALL) 83 

IF Generator C$CIF) 84 

ON Generator ($CON) 85 

REVERT Generator ($CRVT) 87 

STOP Generator ($CSTOP> 88 

DO-Loop Triad Builder ($DEXP) 89 

DO Generator ($DOG, $DOGl) 92 

RETURN Generator ($DRET) 93 

END Generator ($EDGN, $EDGN2) 94 

Process End of ELSE ($£ND£S) 96 



Process End of ON C§EM)ON) •-«•.« 97 

Expander C$EXPND) «.•,«••.. 98 

END Expand ($EYPND) « . . • 100 

Part 3 Logic Diagrams , •..• 101 

Chart 9, Assignment Generator C$ACGEN> 101 

Chart 10. PROC Generator ($APRC^ $APRC2) 102 

Chart 11. BEGIN Generator ($BEGIN) . .•...• 105 

Chart 12. On^Unit Specification Analyzer C$BONSA) 106 

Chart 13. GO Generator ($BRNH, $BRNH2) 108 

Chart 14. CALL Generator ($CALL) • 110 

Chart 15. IF Generator ($CIF) 112 

Chart 16. ON Generator ($CON) .113 

Chart 17. REVERT Generator ($CRVT) 115 

Chart 18. STOP Generator ($CSTOP) . 116 

Chart 19. DO-Loop Triad Builder ($DEXP) 117 

Chart 20. DO Generator C$DOG^ $D0G2) 119 

Chart 21. RETURN Generator ($DRET> 123 

Chart 22. END Generator C$EDGN^ $EDGN2) 124 

Chart 23. Process End of ELSE ($ENDES) 130 

Chart 24. Process End of ON ($ENDON) . 131 

Chart 25. Expander ($EXPM)) 132 

Chart 26. END Expand ($EYPND) 133 

Part 4 ~ Declaration Processing 134 

Attribute Analysis ($ABAL). 135 

Attribute Node Creation ($ANCRE) . . « 137 

Label Processor ($BLPRC) 140 

DCL Generator C$DCLGN) 141 

Locate Identifier ($FSYM) . 143 

Locate Variable ($FVAR) 144 

Part 4 Logic Diagrams ........ 146 

Chart 27. Attribute Analysis ($ABAL) 146 

Chart 28. Attribute Node Creation C$ANCRE) 148 

Chart 29. Label Processor C$BLPRC) 158 

Chart 30. DCL Generator C$DCLGN) .061 

Chart 31. Locate Identifier ($FSYM) 162 

Chart 32. Locate Variable ($FVAR> 163 

Part 5 - I/O Statement Processing 166 

GET Generator C$BGET) 167 

PUT Generator C$BPUT) 169 

Data Specification ($DDS} -. 171 

I/O Specification ($DIOS) 173 

0/C Specification ($DOCS) 174 

Format List Generator ($FLG} 175 

FORMAT Generator C$FMT) 178 

Format Item C$FORI^ $FORl2) 179 

Format in Data List Processor C$FPDL) 180 

OPEN/CLOSE Generator ($OPEN, $CLOSE) . 181 

Part 5 Logic Diagrams • 183 

Chart 33. GET Generator C$BGET) 183 

Chart 34. PUT Generator ($BPUT) • 185 

Chart 35. Data Specification ($DDS) 187 

Chart 36. I/O Specification ($DIOS) 193 

Chart 37. O/C Specification ($D0CS) 195 

Chart 38. Format List Generator ($FLG) 197 

Chart 39. FORMAT Generator ($FMT) 202 

Chart 40. Format Item C$FORI^ $FORI2) 203 

Chart 41. Format in Data List Processor ($FPDL) , 205 

Chart 42. OPEN/CLOSE Generator ($OPEN, $CLOSE) ........ 206 

Part 6 - Expression Processing. ..., 207 

Argument Operand Processor ($NATTP) 208 

Call Generator ($NCALL) 209 

Cross-Section Dope Vector Build ($NCSDV) 211 

Expression Processor Controller ($NEXP) 213 

Dimension Multiplier Generator ($NMULT) 217 

Convert Operand ($NOPCV) 218 

Operator Stack Processor ($NOPRT) . 220 

Operand Set-Up ($NPRE) 223 

Generate Triad C$TRIAD, $STRD) 224 



Part 6 Iiogic Diagrams .o«,. 226 

Chart 43* ArgiJinent Operand Processor C$NATTP) • 226 

Chart 44. Call Generator C$NCM.I,> ..•.••«•.• 227 

Chart 45, Cross-Section Dope Vector Build C$!ilCSDV) ••«,«• 229 

Chart 46. Expression Processor Controller C$NEXP) 231 

Chart 47. Dimension Multiplier Generator C$NMULT) 242 

Chart 48. Convert Operand C$IIOPCV> . 243 

Chart 49. Operator Stack Processor ($NOPRT> 246 

Chart 50. Operand Set-Up C$NPRE) 263 

Chart 51. Generate Triad C$TRIAD^ §STRD) 265 

Part 7 - Code Generator 244 

Optimize Operands ($OPMZO> 268 

String Constant Dope Vector Initializer ($SCDV) 269 

Triad Code Generator ($TCODE) 270 

Triad Operand Processor ($TOPR) .« 277 

Adcon Register Assignment ($VASGA) 278 

Computational Register Assignment ($VASGC) 279 

Register Table Initializer ($VCLR) . • . . . 282 

Storage Address Assembler C$VDSAC) .«,... ...••283 

Temporary Storage Management ($VGTMP) 286 

Instruction Assembler ($VINSA) .^ 288 

Part 7 Logic Diagrams 304 

Chart 52. Optimize Operands ($OPMZO) . 304 

Chart 53. String Constant Dope Vector Initializer ($SCDV) . . 305 

Chart 54. Triad Code Generator ($TCODE) 306 

Chart 55. Triad Operand Processor ($TOPR) 337 

Chart 56. Adcon Register Assignment ($VASGA) •..«..... 341 

Chart 57. Computational Register Assignment ($VASGC) 243 

Chart 58. Register Table Initializer ($VCLR) 350 

Chart 59. Storage Address Assembler ($VDSAC) . . 351 

Chart 60. Temporary Storage Management ($VGTMP) ....... 356 

Chart 61. Instruction Assembler ($VINSA) 358 

Part 8 - Wrap-Up 389 

Adcon Initialization ($HAINI) ,. 390 

Constant Table Processor C$HCTP) . ...•...., 392 

Dope Vector List Processor ($HDVTP) ..... 393 

Line Number Table Processor ($HLNTP). . . , 394 

Runtime Library Loader ($HRTLL) , 395 

Static Constants- Adcon Loader ($HSCAL) . 397 

Table Collapse ($HTCR) 399 

Compilation Wrap-Dp Driver ($MCWU) 401 

Part 8 Logic Diagrams ^ 403 

Chart 62. Adcon Initialization ($HAINI) 403 

Chart 63. Constant Table Processor ($HCTP) 405 

Chart 64. Dope Vector List Processor ($HDVTP) 406 

Chart 65. Line Number Table Processor ($HLNTP) 407 

Chart 66. Runtime Library Loader ($HRTLL) 408 

Chart 67. Static Constants-Adcon Loader ($HSCAL) 410 

Chart 68. Table Collapse ($HTCR) * 412 

Chart 69. Compilation Wrap-Dp Driver ($MCWD) . 414 

Part 9 - Support 416 

Array Expression Error ($AREXP) 417 

Compiler Error ($CERR) 418 

Output Director ($GPUT) 419 

Get Next Triad Entry ($GTRIAD) 420 

constant Processor ($NCONS, $NCON) 421 

Constant Conversion ($NCVT) . 423 

Library Search ($NLSIB) 424 

Segment Management ($WBACK, $WCTCT^ $WEXP^ $WSTEP) 426 

Error Message Editor ($XERR) 429 

Part 9 Logic Diagrams «... 432 

Chart 70. Array Expression Error ($AREXP) 432 

Chart 71. Compiler Error ($C5RR) ^ . 433 

Chart 72. Output Director ($GPUT) 434 

Chart 73. Get Next Triad Entry ($(3TRIAD) 435 

Chart 74. Constant Processor ($NCONS, $NCON) 438 

Chart 75. Constant Conversion ($NCVT) 438 

Chart 76. Library Search ($NLSIB) . 440 



1X1 



Chart 77. Segment Management C$WBIICK) «•««**. tmi 

Chart 78. Segment Management C§WrTC1'> 442 

Chart 79. Segment Management t$WEXP) , 443 

Chart 80. Segment Management ($WSTEP> .. . . 444 

Chart 81. Error Message Editor C$XEim} « . 445 

Part 10 - Executive Interface ....,..,...« 450 

SVC Director ($SVC) 450 

Chart 82. SVC Director C$SVC) 451 



IV 



FIGURES - VOLUME I 



Figure l-l. 

Figure 1-2. 

Figure 1-3. 

Figure 1-4, 

Figure 2-1. 
Figure 2-2. 
Figure 2-3. 
Figure 2-4. 
Figure 2-5. 
Figure 2-6. 
Figure 2-7. 
Figure 2-8. 
Figure 2-9. 

Figure 2-10. 

Figure 2-11. 

Figure 2-12. 
Figure 2-13. 
Figure 2-14. 
Figure 2-15. 
Figure 2-16. 
Figure 2-17. 

Figure 3-1. 
Figure 3-2. 
Figure 3-3. 



A Layout of Main Storage for 

CM.L/360-OS PL/I 3 

Functional Organization of the CALL/3 60-OS 

PL/I Compiler, Phase 1..... 6 

Functional Organization of the CALL/3 60-OS 

PL/I Compiler, Phase 2..^ • 7 

Layouts of User Work Area 9 

Internal Compiler Logic 12 

The Entokening Process , 14 

OPEN/CLOSE Processing. .. 18 

GET/PUT Processing 18 

Format List Processing 19 

Data-Directed I/O Flow of control 19 

List-Directed I/O Flow of control 20 

Edit-Directed I/O Flow of Control 20 

Relationship of the Code Generated 

for the Data List and Format List 23 

Simplified Logic Diagram of the Expression 

Processor Controller ($NEXP) 24 

Simplified Logic Diagrcim of the Operator 

Stack Processor ($NOPRT) 25 

Expression Processor Tables. . 29 

Code Generation 30 

Tables Used by $TCODE. • 31 

Tables of Instruction Assembler ($VINSA) 32 

Wrap- Up Routines ......... 33 

Storage Allocation During Compiler Wrap-Up 34 

Attribute Conflict Matrix 136 

Classification Masks 137 

Format List Generation Example 176 



CONTENTS ~ VOLUME II 



Section 4 - Runtime Support Summary 1 

Library Interface Services CUBINT) • 1 

I/O Management Package (lOMP) 1 

I/O Record Format 2 

Stream-Oriented I/O 3 

Handling of Interrtipts Package (HIP) 6 

Management of Object Program Package tMOPP) .•.* ••• 7 

Library CcMnputational Services (LIBCOMP> ..•.# 8 

Total Conversion Package (TCP) .••. ••^•.., 8 

Structure of Total Conversion Package ..••• 11 

Conversions - Type Arithmetic .•••••••••• 13 

String Manipulation Package (SIMP) • . • . 18 

Arithmetic Fimction Package (AFUW:). 19 

Definitions • • 20 

Module Description •. 21 

Summary. •••••••••••••••»••• •••• 24 

Mathematical Function Package (MFUNC) • 26 

Definitions, •••••••••.••••• 27 

Module Description •••• •••• 27 

Summary • ••••••• 32 

Aggregate Manipulation Package (AMP) .•• 35 

Definitions • « 36 

Module Description 36 

Sunmiary. ••• • 38 

Section 5 - Runtime Routine Directory • •••• 39 

I/O Management Package 39 

Close (IHECLOSE) ....... 40 

Data-Directed Input (IHEDDI) . . , . ^ . 41 

Data-Directed Output (IHEDDO) 43 

Perform Calculation of the Subscript Values for an 

Array Element (IHEDDP) 45 

Edit I/O Director (IHEDIO) . 47 

List- or Edit-Directed GET Initiation and Termination 

(IHEIOA) 48 

Output Initialization with or without Skipping (IHEIOB) 49 

Output Data to the Buffer Area and Communication with 

CALL/360-OS (IHEIOD) 50 

Get Data Field from Input Buffer (IHEIOG) 52 

Perform SKIP(w) Function for SYSPRINT (IHEIOP) 53 

Edited Horizontal Control Format Item (IHEIOX) 54 

List- and Data-Directed Input (IHELDI) 56 

List-Directed Output (IHELDO) ..... 58 

Open (IHEOPEN) 59 

Reset Disk Files (IHERSET) ....... 60 

Handling of Interrupts Package 62 

Program Termination (IHEDUM) 63 

Table of Error Messages and Indicators (IHEERN). .•••...•• 64 

Error Routine (IHEERR) 65 

On-ENDFIUE and REVERT Initializer (IHEONREV) 68 

Management of Object Prograuaa Package 69 

Output Director (IHEGPOT) 70 

Initial Prologue, Expand DSA, End Prologue, Object 

Program Initiation (IHESAD) 71 

GO TO Interpreter (IHESAF) . 73 

Library SVC Director (IHESVC) 74 

Total Conversion Package 75 

F/E- Format Input Director (IHEDIA) .... 76 

A-Format Input Director (IHEDIB) 78 

C- Format Input Director (IHEDIM) .... 80 

F/E-Foinnat Output Director (IHEDOA) 82 

A-Format Output Director (IHEDOB) 84 



C- Format Output Director CIHEDOM) . 86 

Character String to Arithmetic (IHEDCK) • .•. 88 

Arithmetic to Character String (IHEDNC) • • 90 

Zero Real or Imaginary Part (IHEUPA) 92 

Complex External to String Director (IHEVCS) 93 

Character String to Character String (IHEVSC) ...«•• 95 

Arithmetic Conversion Director (IHEIXfA) 96 

Float Intermediate to Packed Decimal Intermediate 

(IHEVFA) 99 

Float Intermediate to Fixed Binary (IHEVFB) 100 

Float Intermediate to Float Short or Long CIHEVFC) * 101 

Fixed Binary toB^toat Intermediate (IHEVFD) • ..••••.•* •.102 

Float Source to Float Intermediate (IHEVFE) 103 

Packed Decimal Intermediate to Float Intermediate 

(IHEVPA) 104 

Packed Decimal Intermediate to F-Format (IHEVPB) 105 

Packed Decimal Intermediate to E-Format (IHEVPC) 106 

String with Format to Packed Decimal Intermediate 

(IHEVPE) 107 

Table of Powers of Ten (IHEVTB) 108 

Data Analysis Routine (IHEVCA) . 109 

String Manipulation Package 110 

Character String Compare (IHECSC) ..••• Ill 

Character String Assignment (IHECSM) ••«••.... 113 

Character String SOBSTR (IHECSS) 115 

Arithmetic Function Package m 116 

Speed ««• 116 

Accuracy 116 

Arguments 117 

Binary Fixed Complex ABS (IHEABU) 118 

Short Float Complex ABS (IHEABW) 120 

Long Float Complex ABS (IHEABZ) 122 

Real Binary Fixed MAX/MIN (IHEMXB) 124 

Real Short Float MAX/MIN (IHEMXS) 126 

Real Long Float MAX/MIN (IHEMXL) . . . . ^ 128 

Short Float Complex Division (IHEDZW) . 130 

Long Float Complex Division CIHEDZZ) 132 

Binary Fixed Complex Mult/Div (IHEMZO) 134 

Short Float Complex Mult (IHEMZW) 136 

Long Float Complex Mult (IHEMZZ) 137 

Real Fixed Binary Integer EXP (IHEXIB) 138 

Real Short Float Integer EXP (IHEXIS) 140 

Real Long Float Integer EXP (IHEXIL) 142 

Z**N, Z Fixed Binary Complex (IHEXIU) 144 

Z**N^ Z Short Float Complex (IHEXIW) 146 

Z**N, Z Long Float Complex (IHEXIZ) 148 

Short Float Real General EXP (IHEXXS) 150 

Long Float Real General EXP (IHEXXL) 152 

Short Float Complex General EXP (IHEXXW) ....... 154 

Long Float Complex General EXP (IHEXXZ) . ............. 156 



VI 1 



FICTRES > VOLUME II 



Figure 4-1. GET and PUT Compiled Code Structure • • • 4 

Figure 4-2. Executable Format Scheme 5 

Figure 4-3. Modular Linkage through Stream-Oriented I/O 6 

Figure 4-4. Changes of Data Type and Form 9 

Figure 4-5. Total Conversion Package Structure. 12 

Figure 4-6. Arithmetic Conversion Subpackage Structure«. 13 

Figure 4-7. Flow through Total Conversion Package 15 

Figure 4-8. Arithmetic Operations 24 

Figure 4-9. Arithmetic Functions. ...... .....•,...• 24 

Figure 4-10. AFUNC Level 25 

Figure 4-11. AFUNC Level 1 . . 25 

Figure 4-12. AFUNC Level 2 26 

Figure 4-13. Mathematical Built-in Functions 29 

Figure 4-14. Mathematical Functions with Real Arguments 32 

Figure 4-15. Mathematical Functions with Complex Arguments .... 32 

Figure 4-16. MFUNC Level 33 

Figure 4-17. MFUNC Level 1 34 

Figure 4-18. MFUNC Level 2 35 

Figure 4-19. Array Indexers 38 

Figure 4-20. Arithmetic Array Functions 38 



Vlll 



CONTENTS - VOLUME III 



Mathematical Function Package *• 1 

Speed 2 

Accuracy 2 

Hexadecimal Truncation Errors 3 

Hexadecimal Constants 3 

Terminology. ^ «•••••.••••••••• 4 

Arguments ** 

Short Float Real Arctan (IHEATS) . . . • • 5 

Long Float Real Arctan (IHEATL) 9 

Short Float Real Hyperbolic Arctan (IHEHTS) ^ • . . * 12 

Long Float Real Hyperbolic Arctan (IHEHTL) 14 

Short Float Complex Arctan/Hyperbolic Arctan (IHEATW) 16 

Long Float Complex Arctan/Hyperbolic Arctan (IHEATZ) 19 

Short Float Real Error Function (IHEEFS) 22 

Long Float Real Error Function (IHEEFL) 25 

Short Float Real EXP (IHEEXS) 28 

Long Float Real EXP (IHEEXL) 30 

Short Float Complex EXP (IHEEXW) 32 

Long Float Complex EXP (IHEEXZ) 34 

Short Float Real Log (IHELNS) 36 

Long Float Real Log (IHELNL) 39 

Short Float Complex Log CIHELNW) 42 

Long Float Complex Log (IHELNZ) ...•...•. 44 

Short Float Real Sin/Cos (IHESNS) 46 

Long Float Real Sin/Cos (IHESNL) - • • 49 

Short Float Real Hyperbolic Sin/Cos (IHESHS) 52 

Long Float Real Hyperbolic Sin/Cos (IHESHL) 54 

Short Float Complex Sin/Cos (IHESNW) • 57 

Long Float Complex Sin/Cos (IHESNZ) 60 

Short Float Real SQRT (IHESQS) • 63 

Long Float Real SQRT (IHESQL) , . • 66 

Short Float Complex SQRT (IHESQW) 68 

Long Float Complex SQRT (IHESQZ) 70 

Short Float Real Tan (IHETNS) 72 

Long Float Real Tan (IHETNL) 75 

Short Float Real Hyperbolic Tan (IHETHS) • . 78 

Long Float Real Hyperbolic Tan (IHETHL) 80 

Short Float Complex Tan/Hyperbolic Tan (IHETNW) 82 

Long Float Complex Tan/Hyperbolic Tan (IHETNZ) 84 

Aggregate Manipulation Package 87 

Speed 87 

Effect of Hexadecimal Truncation 87 

Arguunents 87 

Interleaved Array Indexer (IHEJXI) 89 

PROD- Interleaved Real Fixed Array (IHEPDF) 91 

PROD- Interleaved Real Short Float Array (IHEPDS) 93 

PROD- Interleaved Real Long Float Array (IHEPDL) 95 

PROD- Interleaved Complex Fixed Array (IHEPDX) 97 

PROD- Interleaved Complex Short Float Array (IHEPDW) 99 

PROD- Interleaved Complex Long Float Array (IHEPDZ) 101 

SUM- Interleaved Real Fixed Array (IHESMF) 103 

SUM- Interleaved Real/Complex Short Float Array (IHESMG) 105 

SUM- Interleaved Real/Complex Long Float Array (IHESMH) 107 

SUM- Interleaved Complex Fixed Array (IHESMX) 109 

POLY (A^X) (A and X Real Fixed) (IHEYGF) Ill 

POLY (A^X) (A and X Real Short Float) (IHEYGS) 114 

POLY (A,X) (A and X Real Long Float) (IHEYGL) 117 

POLY (A^X) (A and X Complex Fixed) (IHEYGX) 120 

POLY (A^X) (A and X Complex Short Float) (IHEYGW) 123 

POLY (A^X) (A and X Complex Long Float) (IHEYGZ) 126 



XX 



CONTENTS - VOLUME IV 



Appendix A - Compiler Conventions and Data Layout 1 

Naming and Usage 1 

Registers 1 

Subroutines 2 

Register Save- Areas • 2 

Compiler- Wide Variables 2 

Compiler Tables and Lists 2 

Symbolic Organization 3 

Runtime Routine Structure^ 3 

Compiler Variables . 5 

C-Area ^ 5 

P-Area 6 

G-Area 6 

Appendix B - Compiler Tables and Lists . . • 17 

General • 17 

Dictionary Attribute List (A List) 18 

Block Information Table (B Table) 29 

Constant Table (C Table) 31 

Line Nmiber Table (D Table) • 33 

Dictionary Hash Table (H Table) • 34 

Initialization Table (I Table) 35 

Dope Vector List (J List) 38 

Library Load Table (L Table) • 39 

Symbolic Instruction Table (M Table) «...••.. UO 

Dictionary Ncume List (N List) ••....• 42 

Operation Code Table (O Table) 45 

Program Structure Table (P Table) 47 

Subscript Substitution Table (Q Table) 51 

Register Table (R Table) 52 

Temporary Storage Table (S Table) 57 

Token Table (T Table) 58 

Expression Stack (V Table) 61 

Operator Stack (X Table) 62 

Operand Stack (Y Table) 64 

Triad Table (Z Table) • 66 

Dope Vector Table 70 

ENDFILE Table 71 

Entry Name Declaration List 72 

On^Unit Parameter List 73 

Routine Entry Name Processed Table 74 

Appendix C ~ Compiler Support Macros 75 

Table Handling Macros 75 

Expandable Tables 75 

Lists 77 

Delete Entry Macro (DNODE) 79 

Free Area Macro (FAREA) ..•...•. 80 

Current Entry Locator Macro (GCURR) 81 

Pointer to First Node Macro (GFRST) •... 82 

Get Next Entry Macro (GNEXT) 83 

Get Node Macro (GNODE) 84 

Get Previous Entry Macro (GPREV) .•••..^ 85 

Insert Entry Macro (INODE) 86 

Establish Pointer Macro (MNODE) 87 

Other Macros * ., 88 

Subroutine Call Macro (CALL) 88 

SVC Interface Macro (CSVC) » ., 89 

DED Macro (DED) 90 

Expression Processor Call Macro (EXPG) 91 

Forward Internal Branch Macro (FIB) 92 

Error Interface Macro (GENER) 93 

Get Token Macro (GETKN) 94 



Generate Triad Macro (GTRD) 95 

Sym^MMjc Immtscw:^t±<3m I'alile ^lero IZ^STJ« »•«••••«•••«« 96 

MiSk^[m. O^iisraitilcm liaoD© l»C€i^« •«•«..««•••••«•••• 9T 

a^e^ilwe PQi^i^ord iMtera^l l^cam:;li l^oLafl mM^i^ fiwai .•..•••* fl 

Skip Token Macro (SKPTK) 99 

Symbol Definition Macro (SYMDEF) 100 

Tally Macro (TALLY) - 101 

Entokening and GENER Interface Macro (TGENER) .• 102 

Appendix D - Runtime Support Macros -....• 103 

General - 103 

Naming Conventions 104 

Storage Requirements and Library Address Constants 104 

Data Representation 106 

The Library Work Space 107 

Relocatable Work Area (LWSP) 107 

Non-Relocatable Work Area (LWS) 109 

Registers and Offsets i. 110 

Library Support Macros Ill 

Call Error Macro (CALLERR) • 112 

CALL/360-OS Macro (CALRTS) 113 

Check FCB Macro (CKFCB) 114 

Address Constants Macro (IHEADC) ..•- 115 

Branch Macro (IHEBRA) 116 

BAA Extern Macro (IHEBXT) 117 

Call Macro (IHECAL) 118 

Double Cover Macro CIHEDCV) 119 

Difference Macro (IHEDIF) 120 

ERRCD Macro (IHEERRCD) 121 

Initialize File Control Block Macro (IHEFCB) • . • • 122 

Save FCB Pointers Macro tlHEFCIB) 123 

Link Routine Macro (IHEFROM) .124 

External Macro (IHEEXT) 125 

Header Macro (IHEHDR) 126 

I/O Interface Macro (IHEICtt)) 127 

Standard Offsets Macro (IHELBE) 128 

Library Macro CIHELIB) 129 

Library Work Spac^ Macro (IHELWS) ...... 130 

MOPP Macro (IHEMOPP) 131 

Name Macro (IHENAME) 132 

Open Test Macro (IHEOPENT) 133 

Patch Macro (IHEPCH) . • 134 

Return Macro (IHERET) 135 

Restore Macro (IHERST) 136 

Save Macro (IHESAV) 137 

Single Cover Macro (IHESCV) 138 

SDR Macro (IHESDR) 139 

Symbol Macro (IHESYM) 140 

Trailer Macro (IHETLR) 141 

Zap Macro (IHEZAP) 142 

Library Definition Macro (LIBDEF) 143 

Read Disk Macro (READDISK) 145 

Read Term Macro (READTERM) 146 

Uniform Interface for SVC Macro (RTSSVC) 147 

Set Disk Macro (SETDISK) 148 

Set Error Code Macro (SETERRCD) 149 

Set File Controls Macro (SETFLCA) 150 

Set Dope Vector Macro (SETSDV) • . . , 151 

Appendix E - Object Code Storage Layout. ...... 152 

object Code 152 

Symbol Table 152 

object Code Address-Line Number Table. 153 

Static and Constants Storage 154 

Data Element Descriptor (DED) 155 

The P Byte 155 

The Q Byte 156 

Format Element Descriptor (FED) 156 



XI 



Dope Vectors •..•^ * 156 

String Dope Vector (SDV) 156 

Array Dope Vector CADV) « 157 

String Array Dope Vector (SADV) 159 

Address Constant Area 159 

Multi-File Interface 162 

Coinintinications Area 162 

Static and Constants Area <• 162 

FCIB Offsets and FCIB's for SYSIN and SYSPRINT •••.••••. 162 

FCIB*s for Disk Files 163 

Adcon Area (Fixed- Length Portion) .164 

Common Data Specification Portion of FCB 165 

Block Adcon Area 167 

On- Unit Adcon Area 168 

Library* ,..•..• 170 

Static Array and String Storage. 170 

Dynamic Storage Areas and ON-Conditions 170 

Examples 173 

Data Addressing 176 

Appendix F - Sij^port Services for Language Processors 178 

Compiler /Executive Interactions. ...... . 179 

Storage Allocation 179 

Initial Register Settings. ., 179 

User Work Area 180 

User Terminal Table 181 

Addressing 181 

I/O Processing 181 

Terminal I/O 181 

Disk I/O . 182 

Interrupt Handling •• 183 

Swap- Inhibited Situations. 183 

End of Compilation 184 

Detailed Format Descriptions 184 

Coiranuni cations Area 184 

UTT Data Available to Language Processor 186 

Data File Table 187 

Output Buffer Format 189 

Format of Date Information 190 

Supervisor Call CSVC) Instruction 190 

Appendix G - CALL/360-OS PL/I Compiler Maintenance 194 

Module Storage , 194 

Update and Assembly 194 

Link Edit 195 

CALL/360-OS PL/I Member Names. . , 196 

Compilation Member Names 196 

Runtime Member Names • 196 

Appendix H - Diagnostic Messages ..... ....198 

Compilation Error Messages ............. 198 

Execution Error Messages . 202 

Appendix I - Maximum Size of Source Program ..•. 206 

Storage Required at Input of Program 206 

Storage Required to Compile Program. .. ...... 206 

Storage Required to Execute Program 206 

Examples , 207 

Example 1. 207 

Example 2 • 208 

Example 3 208 

Appendix J - Reference Listings. «..«,......,, 209 

CALL/360-OS PL/I Compiler Subroutines. ...... 209 

CALL/360-OS PL/I Runtime Library ..... 215 

Macro-Macro Cross Reference. .. 227 

Module-Macro Cross Reference .............228 

Module-Module Cross Reference 234 



Xll 



FIGURES - VOLUME IV 



Figure E-1. 
Figure B-2. 
Figure B-3. 
Figure B-4, 

Figure B-5. 
Figure B-6. 

Figure B-7, 
Figure B-8, 
Figure B-9. 
Figure 3-10. 
Figure B-11. 

Figure D-1. 
Figure D-2, 
Figure D-3. 



Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 



E-1, 

E-2. 

E-3, 

E-4. 

E-5, 

E-6. 

E-7. 

E-8, 

E-9, 

E-10. 

E-11, 

E-12. 

E-13- 

E-IU. 



Figure E-15, 

Figure E-16, 

Figure E-~17« 

Figure S~18- 

Figure E-19- 

Figure E-20« 
Figure E-21, 

Figure E-22, 
Figure E-23. 

Figure E-24- 
Figure E-25. 
Figure E-26, 

Figure F-1* 
Figure F-2. 

Figure J-1. 
Figure J- 2. 
Figure J- 3. 
Figure J- 4, 



Dictionary Attribute Siitry-«" First 13 Bytes 18 

Dictionary Attribute Entry for Nonlabel Variable. . . 20 

Dictionary Attribute Entry for Label Variable «... 21 
Dictionary Attribute Entry for Statement -Label 

Constant. - 22 

Dictionary Attribute Entry for Entry Name ...... 23 

Dictionary Attribute Entry for Built-in Function 

Entry Na!tie ,.» 23 

Dictionary Attribute Entxv for Filename 26 

Dictionary Attribute Entry for a Constant 28 

Operand Values for Symbolic Instruction Table . . c . 41 

Format of Register Table ^3 

Format of Token Table ...•••. 58 

CALL/3 6 0-OS PL/I Address Constants Area ....... 105 

CALL/3 6 0-OS PL/I Data Representation .... 107 

LIBDEF Calls. ...» 1^4 

Symbol Table Entry. ....... .... 153 

Object Code Address-Line Niamber Entry ........ 153 

Static and Constants Area ...o. 154 

DED Formats ........... 155 

Definition of DED Flag Field IKSDDFF) 155 

SDV Format 157 

ADV Format. 158 

SADV Format . . . . 159 

Layout of Fixed- Length Portion of Adcon Area 160 

Communications Area ........... 162 

FCIB Offsets and FCIB's for SYSIN and SYSPRINT. . . . 163 

FCIB Format for Disk Files. ...... ...... .163 

FCB Format in Fixed Adcon Area. ........... 164 

Common Data Specification Portion of FCB for Data 

Input and Non- Array Element Data Output ....... 165 

Common Data Specification Portion of FCB for Array 

Element Data Output 165 

Common Data Specification Portion of FCB for 

Initialize Output with SKIP Option. 166 

Common Data Specification Portion of FCB for List 

I/O . . « 166 

Common Data Specification Portion of FCB for Non- 
Complex Edit I/O. 166 

Common Data Specification Portion of FCB for 

Complex Edit I/O. .......... 167 

Format of Block Adcon Area (BAJO 168 

Format of On-Unit Adcon Area (Except for ON 

EM)FILE) 169 

Format of ON EM)FILE Adcon Area . , 170 

Layout of DSA for Internal Procedure and Begin 

Blocks 172 

Layout of DSA for On-Units (Except ON ENDFILE) . . . .173 

Layout of DSA for ON ENDFILE On-Units 173 

General Purpose Register Assignment ......... 176 

Format of CALL/360-OS Source Lines 180 

Referencing Data File Tables 188 

Macro-Macro Cross Reference 227 

Compilation Module-Macro Cross Reference .229 

Runtime Module-Macro Cross Reference 231 

Compilation Module-Module Cross Reference 235 



Xlll 



SECTION 1 - GENERAL DESCRIPTION 



The CALL/360-OS PL/I compiler (to be used with the CALL/360-OS system 
on an IBM System/360 Model 50 or higher) is described in this manual. 
The compiler accepts, as input, a complete source program written in 
the CALL/3 6 0~OS PL/I language. The language (described in the CALL/ 360- 
OS PL/I Language Reference Manual ) is oriented to a scientific user. 
It was selected on the basis of its utility to such a user, as well 
as the ease with which it could be implemented. The compiler produces 
a machine-language (object) program directly into memory and, if no 
severe errors were detected during conpilation, initiates execution 
of the program. 

This section of the manual presents the CALL/360-OS PL/I compiler as 
a whole and presents the overall logic of its implementation. It is 
intended for a reader having some knowledge of the time- sharing system 
under which it will run and of the CALL/360-OS PL/I language. 
Furthermore, it is designed for a reader who desires a broad picture 
of the design of the compiler. 

PHILOSOPHY 

The CALL/360-OS System is designed to support a large number of users 
concurrently interacting with the computer through typewriter- like 
input/output terminals. Since each user is in effect conversing with 
the system, a basic requirement is that the system respond within a 
reasonable time. In order to support these users with a limited amount 
of high-speed computer memory, some of the modules are stored 
temporarily in online storage units (disks) and called in for execution 
as needed. Since the number of modules that can be contained in high- 
speed storage at any one time is dependent upon their sizes, they 
should be as small as possible. Ccanpiler modules that are loaded from 
disk for execution will not always be loaded to the same core location; 
therefore, they must be dynamically relocatable. 

While the terminal user is entering his source text into the computer, 
he is in communication with the CALL/36 0-OS Executive (not with the 
compiler). After the complete text has been entered and the user has 
requested that the program be executed, the compiler is invoked. Once 
invoked, the compiler processes the complete source text, generating 
the object code into an area of memory allocated by the Executive. 

OBJECTIVES 

The compiler is designed to achieve the following goals: 

1. To be as small as possible. 

2. To be as fast as possible. 

3. To provide a compilation facility for the CALL/360-OS PL/I 
language, with good diagnostic capability. 

4. To produce efficient object code. 

To a certain extent, these goals are mutually exclusive. A small, 
fast compiler is usually not able to produce efficient object code. 
Also, the extent of the language facilities supported by a small, fast 
compiler is usually very limited. The design of the CALL/360-OS PL/I 



compiler gives first priority to objectives 1 and 2, and secondary 
priority to objective 3, It strives for the best possible attainment 
of objective 4 within these constraints. 

FACILITIES 

The ChLL/360-OS PL/I compiler operates in conjunction with and is 
controlled by the CALL/360~OS Executive. When the compiler is invoked, 
it processes and translates a CALL/3 60-OS PL/I source program directly 
into machine-readable object code (in main storage). The compiler 
does not produce a binary deck or any hard copy listings of the 
generated object code. Nor is it possible to save or store the compiled 
code immediately after compilation. Compilation and execution are 
invoked simultaneously (unless severe errors cause cessation of 
processing) . 

The command that the user must give to initiate both compilation and 
execution is the CALL/360-OS system command RUN. (See the CALL/36Q-OS 
Terminal Operations Manual ^ Form Number GH20-0787.5 This command initiates 
a sort, if necessary ^ followed by compilation and execution of the user 
program. After being invoked, the CALL/360-OS PL/I compiler provides 
diagnostic messages on the user terminal for any errors detected during 
compilation. (See "Compiler-Time and Runtime Error Messages" in this 
section and Appendix F of the CALL/360-OS PL/I Language Reference Manual , 
Form Number GH20-0700.) When compilation and execution have been 
completed or terminated because of an error condition, the user can 
utilize available editing facilities to correct his program if 
necessary. Then he can enter another RUN command to recompile and 
reexecute his program. 

A user's program consists of a single external procedure and the runtime 
library routines needed to support it. Although the external procedure 
may contain internal procedures, there are no facilities for linking 
separately compiled external procedures. 

In addition to the compiler itself, a package of library routines is 
provided to support the object program at execution time. These 
routines are described more fully in later sections of this manual. 

APPROACH 

To meet the primary objectives of minimum size and maximum speed, the 
CALL/360-OS PL/I compiler has been designed to translate a CALL/360- 
OS PL/I source program in one pass over the source statements. That 
is, code is generated for each statement at the time and in the order 
it is encountered in the source stream. This does not prevent the 
compiler from scanning a statement several times during the compilation, 
but each statement is fully processed before processing of the next 
statement is begun. 

One phase of the compiler, the source text, and the target area for 
the object program are completely contained in core memory during a 
compilation. None of these areas is overlaid. This approach places 
a practical limitation on the size of the program that can be compiled 
but avoids the necessity to include costly spill and overlay logic 
in the compiler. 

The compiler itself is both reenterable and relocatable. These 
characteristics are necessary because CALL/360-OS, in essence, performs 
multiprocessing within its own partition in addition to handling and 
servicing interrupts and commands from any of a number of terminals. 



Main storage is allocated for all of the resident modules and 
subroutines y I/O appendages, tables, CPID (control program interrupt 
dispatcher) , an overlay buffer for nonresident modules, terminal and 
disk I/O buffers, compiler area, new-job-area-1, new- job-area~2 
(optional), old- job-area, and any necessary OS/360 control blocks. 
At any given time, a number of user jobs may be in process. 
Furthermore, these jobs may require different compilers (in which case, 
one compiler may be overlaid by another compiler) . Typical organization 
of main storage when the CALL/360-OS PL/I compiler has been invoked 
is shown schematically in Figure 1-1. In this example, a computer 
having 512K of main storage is assumed. 
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Figure 1-1, A Layout of Main Storage for CALL/360-OS PL/I 



CALL/360-OS facilities also include time-slicing for user jobs. When 
the time allotted to a specific user job has expired or when a disk 
I/O operation or a terminal request for data occurs ^ the user job is 
swapped out of core to his disk work swap area (which was allotted 
to him at sign-on time) . Depending on the condition forcing swap out, 
the user job is again queued for one of the work areas in core. It 
may or may not be read into the same main storage locations that it 
occupied previously. For this reason^ the object code produced by 
the compiler must^ like the compiler , be relocatable. 

Upon initial entry into the compiler, the Executive supplies the 
compiler with two parameters: the address of the current location of 
the compiler and the address of the target area for the user's object 
program. These addresses are the first locations of the compiler area 
and the user work area, respectively. A communications area containing 
other information needed by the compiler is at the start of the target 
area. At the end of the target area is the complete source text to 
be compiled. 

Within the communications area is the address of a user terminal table 
(UTT) entry for this user. The UTT entry contains , among other items, 
the amount of storage that has been allocated to this user and the 
location and size of the source text. 

Phases 1 and 2 of the compiler operate on the source program and produce 
an executable object program in the same user work area. The compiler 
uses part of this area for its own work space. Upon completion of 
compilation, the object program is invoked immediately by the compiler 
(unless serious errors were detected during compilation) . 

The compiler area holds either phase 1 or phase 2 of the compiler. 
Since both phases of the compiler are reenterable and relocatable, 
areas within the compiler itself are not modifiable. 

As noted previously, the compiler may process several jobs concurrently 
on a time-slicing basis. In such a situation, the compiler operates 
on multiple user areas. Each work area and the compiler area are 
subject to relocation (as well as swapping) on an individual basis. 
If the Executive requires an area being utilized as a user work area, 
it saves the content of the area on disk storage and then relocates 
it. If the Executive requires the compiler area, it need not save 
the content of the area, since the compiler is reentrant. 

COMPILER ORGANIZATION 

The routines of the compiler may be grouped within ten categories: 

1. Executive routines, consisting of the initializers for both 
phase 1 and phase 2 of the compiler. 

2. Entokening generators responsible for analyzing the source 
program for syntactic units. 

3. General statement processors responsible for directing the 
syntactic and semantic analyses of CAI.L/360-OS PL/I source 
statements. 

4. Declaration processing responsible for creating and finding 
definitions for all declarations and identifiers in the source 
program. 

5. I/O statement processors. 



6. Expression processing responsible for analyzing all expressions 
in the source program. 

7. Code generators y which Cupon direction of other compiler 
routines) produce the object code to be generated. 

8. Wrap- up y which loads the required library routines and otherwise 
prepares the user area for execution. 

9. Miscellaneous support routines. 

10, Executive interface. 

The processing of each statement is directed by the Controller routine. 
It invokes the Entoken routine to analyze the characters comprising 
the source text and to identify the significant tokens (that is^ 
delimiters y constants ^ and identifiers) of the next statement in 
sequence. An entry is placed into a token table for each token in 
the statement, which is then analyzed by the Controller to determine 
which statement generator is to be invoked. The invoked generator 
performs a syntactic and semantic check of the validity of the statement 
and directs generation of the required object code. 

The other areas perform functions that are common to several of the 
other routines (such as code generation for expressions , identifier 
resolution, label processing, and storage allocation) . Figures 1-2 
and 1-3 show the functional relationships of routines of the CALL/3 60- 
OS PL/I compiler. 
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Figure 1-3. Functional Organization of CALL/360--OS PL/I Compiler ^ Phase 2 



DATA ORGANIZATION 



The requirement that the compiler must be reenterable implies that 
all of its working storage must be in the user work area. Since the 
location of this area may change during compilation, all addresses 
of items within this area must be relative to the base address of the 
area or contained in a special address constant area. The free space 
in the user work area is used by the compiler for all of its working 
storage and for the object program. The object program is built from 
the beginning of this area (following the communications area) to the 
endy and the working storage is allocated from the end (preceding the 
source text) to the beginning. If these two areas overlap, the work 
area is insufficient in size. The compiler returns to the CALL/360- 
OS Executive with a request for more space. 

Most of the compiler's data is maintained in either expandable tables 
or threaded lists. If it is stored as an expandable table, the entries 
are stored consecutively in an area of fixed length. When one table 
area fills, that area is linked to another area (where another set 
of consecutive entries is started). If the compiler data is stored 
in the form of a threaded list, entries are not necessarily in 
consecutive locations. Each entry contains a pointer to the next entry 
in sequence, wherever it is located. The first byte of an expandable 
table area or the first byte of an entry in a threaded list contains 
an identification code. This code byte is often used by the compiler. 
However, its primary purpose is to simplify the checkout and maintenance 
of the compiler. 



The compiler's working storage area ccmsists of both a fixed-size and 
a variable-size work area. Space for the fixed area is set up by the 
Phase 1 Initializer routine. This fixed area is allocated backwards 
from the beginning of the user work area. Space for the variable area^ 
which consists^ primarily^ of expandable tables and threaded lists, 
is obtained as needed during the compilation process. This area extends 
backwards from the beginning of the fixed area. 

The fixed-size working storage area is divided into three main parts; 
a C-area or compiler adcon area, a P-area or program adcon area, and 
a G-area or general area. 

The C-area contains addresses of compiler modules, locations within 
these compiler modules, and register save areas for CI, C2, and C3 
(registers 8-10). Registers Cl, C2, and C3 are used exclusively to 
provide compiler module cover and for linkage between compiler modules. 

The P-area contains addresses of locations within the user work area 
and register save areas for PO, PI, P2, P3, P4, and P5 (registers 11- 
1, excluding 0). These registers are used exclusively for referencing 
locations within the user work area. 

The G-area is used for all other purposes. It does not contain any 
adcons, but it does contain pointer words which are displacements to 
locations within the user work area. It also contains save areas for 
registers GO, G2, G3, G4, G5, G6, and G7 (registers and 2-7). These 
registers cannot contain actual addresses when the program is swappable. 

When either phase 1 or phase 2 of the compiler is relocated, registers 
Cl, C2, and C3 and the adcons in the compiler adcon area of fixed 
working storage (C-area) are adjusted by the amount of the relocation. 

When the user work area is relocated, registers PO, PI, P2, P3, P4, 

and P5 and the adcons in the program adcon area of fixed working storage 

(P-area) are adjusted by the amount of relocation. 

No other areas are affected by relocation during compilation. This 
includes the G-area; registers GO, G2, G3, G4, G5, G6, and G7; the 
object code being generated; and the variable-size working storage 
area. 

After the END statement for the external procedure has been processed, 
phase 2 of the compiler is invoked. Phase 2 is brought in by the 
Executive and overlays the code for phase 1. The function of phase 
1 was primarily to generate machine- language (object) code for CALL/360- 
OS PL/I source-program statements. The function of phase 2 is to set 
up the items referenced by the object code. Constants, library 
routines, and adcon areas are set by processing the tables generated 
during phase 1. Space is reserved for necessary input/output buffers, 
and execution of the user's object program is initiated. 

The execution (runtime) phase involves only one area, namely, the user 
work area. When this area is relocated during runtime, registers PO 
through P9 (registers 6-15)^ the adcons in the address constant area, 
and the adcons in the relocatable library work space are adjusted by 
the amount of the relocation. The execution phase is self-contained. 
That is, all library routines have been loaded and there are no overlay 
facilities. 

The layouts of the user work area during compilation and during 
execution are shown in Figure 1-4. (For details, see Appendix E.) 
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NAMING CONVENTIONS 

Runtime library routines are named IHExxx where xxx is a three- to 
five- character mnemonic indicating the routine's function • Phase 1 
and phase 2 compiler modules are named $xxx where xxx is a one- to 
seven-character mnemonic indicating the routine's function. 

Note: The CALL/3 6 0-OS PL/I compiler and runtime modules follow the 

naming conventions stated above. For clarity^ these conventions 
are used throughout this manual. However^ there are some 
exceptions in the member names assigned to certain routines 
when stored in CALL/360-OS PL/I system libraries.. These 
exceptions are noted in Figure J-«» and under "CALL/BGO-OS PL/I 
Runtime Library" in Appendix J of Volume IV. 

COMPILER LIMITATIONS 

Because all tables and the object program are kept in main storage 
during program compilation, compilation may be terminated because the 
user work area is too small. This is the only valid (that is, source- 
program related) reason for termination of compilation. Compilation 
may also be terminated if the CALL/3 60- OS PL/I compiler discovers an 
"impossible" logic path or because a program interrupt occurs. Such 
a condition is due to either a machine error or an error in the 
CALL/360-OS PL/I compiler. 

Before compilation is terminated because of insufficient work space, 
CALL/360-OS PL/I requests additional main storage from the Executive. 
However, for a given computer size, there is a maximum work space that 
the Executive can provide. At present, on a machine having 51 2K bytes 
of main storage, a user work area can be up to 112K bytes in size. 
(See Appendix I for details on the maximum size of a program to be 
compiled on a 512K computer.) 

A programmer, by specifying an out of range value for the subscript 
of an array, may destroy the contents of his static array and string, 
disk buffer, or dynamic storage area. Complete storage protection 
is not provided for these areas. As an example, assume that an element 
of an array A is specified outside of the area for which the array 
has been declared. That is, a program may contain the following 
statement. 

A(I)=10; 

Assume that, when this statement is executed, the current value of 
I is outside of the range declared for the subscript of A. This 
specification can cause data to be written in one of the three areas 
mentioned above. An error message is generated only if the value 10 
would be moved into an area other than one of those three. 

COMPILER- TIME AND RUNTIME ERROR MESSAGES 

During the compilation process, the CALL/360-OS PL/I compiler modules 
analyze source statements of the program being compiled. If incorrect 
use of the language is detected, an error message identifying the error 
condition is printed out at the terminal. (See Appendix F of the 
CALL/3 60-OS PL/I Lanquaqe Reference Manual for a description of 
CALL/3 60-OS PL/I compilation and execution error messages. These 
messages are also listed in Appendix H of this manual.) 

A severity code is associated with each compiler-time error message. 
If any statement causes a message having severity code 3 to be 
generated, the compiled program is not executed. 

10 



If an error condition arises during program execution, an error message 
is printed (unless the programmer has indicated alternative action 
by means of an ON statement). Error conditions are of two types. 
Some cause execution to be terminated immediate ly, but others permit 
execution to continue. 
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SECTION 2 - COMPILER OPERATIONS 



OVERVIEW 

The CALL/360-OS PL/I compiler is a one-pass^ two-phase compiler — one- 
pass ^ since it processes each statement completely before going to 
the next; two-phase ^ because it is separated into two parts, phase 
1 and phase 2. 

Phase 1 takes one pass over the source code and translates source 
statements to object code. During this pass, the entokening routines 
translate the source stream into intermediate syntactic units called 
tokens. The tokens are an unarranged, concise description of the 
source statements. The expression processing routines transform these 
tokens to another intermediate form called triads. Actually, triads 
are the original source-program operators and operands rearranged so 
that the specified operations will be executed in proper order. The 
triads are converted to final object code by the code generator segment 
of phase 1. 

After phase 1 has processed the last statement, it issues a request 
to the CALL/360-OS Executive to bring in phase 2. The Executive 
overlays phase 1 with phase 2. Phase 2 performs wrap-up and loads 
the library routines. 



Figure 2-1 depicts the internal compiler logic of phases 1 and 2. 

As noted above, each statement is completely processed before processing 

of the next statement begins. 
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Figure 2-1. Internal Compiler Logic 



PHASE 1 



After initialization of the compiler work area, which is performed 
by the Phase 1 Initializer C$CCONT), control is transferred to the 
Controller C$CNT). The Controller directs the entokening of statements. 
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analyzes most label prefixes ^ and directs control to statement 
processors and code generation routines • 

The usual sequence of events is: 

!• The Controller calls the Entoken routine ($ATKN) to entoken 
a statement. 

2. The Controller examines the statement tokens to determine whether 
the statement is a keyword type or assignment statement. If 

it is a keyword type^ the first token of the statement^ excluding 
any possible label prefix token^ determines the keyword type. 
The Controller directs control to the statement processor which 
handles that keyword type. Any statoment that is not a keyword 
type statement is an assignment statement; the Assignment 
Generator ($ACGEN) is called. 

Ntote: Assignment statements may begin with keywords (for 
example, IF=1). These statements are recognized as 
assignment statements. 

3. The called routine processes the tokens of the statement to 
create triads and then returns control to the Controller. 

4. The controller then directs control to the code generation 
routines to produce object code from the triads. 

ENTOKENING 

The primary function of entokening is to convert the syntactic units 
of each source statement to tokens. Each token is one word long. 
The syntactic units that may be encountered are: 

• Identifiers 

• Keywords 

• Delimiters such as ♦ , ( ♦ = or ; 

• Constants 

• Comments 

The token created for an identifier or keyword references the dictionary 
name list entry for that item. If there is no dictionary name list 
entry, one is made. (See the Search- Insert routine ($FIND) for 
details. ) 

The tokens created for delimiters (with the exception of the left 
parenthesis token) are self-contained. That is, there are no pointers 
to other items in the token word. A left parenthesis token points 
to the corresponding right parenthesis token. When a constant is 
encountered, a constant attribute entry is created and the generated 
token references this attribute. No tokens are created for comments, 

Entokening is controlled by the Entoken routine ($ATKN) . The Scan 
Index routine ($ASIDX) is used to advance to the next source character. 
The Search-Insert routine ($FIND) is called to search for a dictionary 
name list entry and to create an entry if there is none. The Get Non- 
Blank routine ($FNB) is called to advance to the next non-blank source 
character. The relationship of these routines is shown in Figure 2-2, 
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Figure 2-2. The Entokening Process 



GENERAL STATEMENT PROCESSING 



General statement: processors are called by the Controller ($CNT) . 

If a keyword is found in a statement, $CNT calls a statement processor 

as follows. 



Keyword 

PROC or PRCXTEDURE 

BEGIN 

GO or GOTO 

CALL 

IF 

ON 

STOP 

REVERT 

DO 

RETURN 

END 



Routine 

PROC Generator ($APRC) 
BEGIN Generator ($BEGIN) 
GO Generator ($BRNH) 
CALL Generator ($CALL) 
IF Generator ($CIF) 
ON Generator ($CON) 
STOP Generator ($CSTOP) 
REVERT Generator ($CRVT) 
DO Generator <$DOG) 
RETURN Generator ($DRET) 
END Generator ($EDGN) 



If no keyword is found, the statement is an assignment statement. 
The Assignment Generator routine ($ACGEN) is called to process this 
statement. (The statement processors listed above do not include those 
which handle I/O or declaration processing. These routines are 
discussed later in this manual.) 

The processing performed by each of the routines listed above is unique, 
but, in general, the routines examine tokens and build appropriate 
triads. The statement processors also check for logical consistency. 
The keyword routines and the Assignment Generator call the Expression 
Processor Controller ($NEXP) to process: 

• Assignment statements (called by Assignment Generator) 

• Expressions such as A=5 in the statement 

IF A=5 THEN GO TO HFILE? 

• CALL Statement entry names and argument lists 
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other routines discussed together with the general statement processors 
are: 



Routine 

On-Unit Specification 
Analyzer ($BONSA) 

DO-Loop Triad Builder 
($DEXP) 



Process End of ELSE 
($ENDES) 



Process End of ON 
($ENDON) 

Expander ($EXPND) 



END Expand ($EYPND) 



Caller and Function 

Called by the ON Generator ($CON) to 
check the legality of an ON-condition, 

Called by the DO Generator ($DOG) and the 
Expander ($EXPND). Its function is to 
build the triads which initialize the 
DO index, increment the DO index , and 
test for DO- loop termination. 

Called by the Controller ($CNT) when it 
detects the end of an IF statement. (Note 
that an IF statement may or may not be 
terminated by an ELSE clause.) This 
routine resolves branches to the end of 
the IF statement. 

Called by the Controller ($CNT) when it 
detects the end of processing to be performed 
as the result of an ON-condition. 

Called by the Assignment Generator 
($ACG£N) when it detects an array 
expression. This routine generates 
one DO triad for each dimension of the 
array . 

Called by the Assignment Generator to 
end the range of DO's created by the 
Expander ($EXPND) . 



DECLARATION PROCESSING 

Information about an identifier is contained in its dictionary name 
entry and its dictionary attribute entry (s). These entries are in 
the dictionary name list and dictionary attribute list respectively. 
An identifier may be used or declared differently in different blocks; 
thus, there may be more than one dictionary attribute entry per 
identifier. However, there can be at most one dictionary attribute 
entry for an identifier per block. 

A dictionary attribute entry is constructed for an identifier when 
its attributes are specified either in a DECLARE statement or by the 
identifier's contextual usage. The contextual usage may either cause 
a new dictionary attribute entry to be created or cause a description 
to be added in an existing dictionary attribute entry. 

Note; Dictionary attribute entries are also made for constants. These 
entries are formed in a section of the token table and are 
discarded after the statement has been processed. 

Four types of declarations are allowed: 

• Explicit 

• Implicit 

• Contextual 

• Tentative 
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An explicit declaration is made when a label appears on a statement 
or when an identifier appears in a DECLARE statement (except for those 
entry names that are not also parameters). 

An implicit declaration is created for any use^ in an arithmetic 
position^ of an identifier that is not followed by a left parenthesis 
and which has no previous declaration in the scope of usage. 

Contextual declarations are made for identifiers used in file options 
in GETr PUT^ OPEN^ or CLOSE statements and for declarations of non- 
parameter entry names in DECLARE statements^ 

A tentative declaration is made for each parameter encountered in the 
processing of a PROCEDURE statement; for a scalar not followed by a 
left parenthesis y when it is used in a position of a label and there 
is no other declaration in the current block (such as GO TO A^ where 
A has not been encountered previously); or for a scalar followed by 
a left parenthesis y when it is used in an arithmetic position and there 
is no previous declaration in the scope of usage. 

The four declaration categories listed above do not correspond directly 
to those discussed in the CALL/360-OS PL/I Language Reference Manual . 
The language reference manual discusses only implicitr contextual, 
and explicit declarations. The tentative type was added because of 
the one~pass nature of the CALL/3 60-OS PL/I compiler. It is only 
significant internally. The contextual definition of the entry name 
not a parameter in the DECLARE statement is also at variance with the 
CALL/360-OS PL/I Language Reference Manual . Again, this is an internal 
convenience, since the declaration will become explicit when the 
procedure with that name is encountered. Classification of an 
identifier as explicit, implicit, or contextual indicates its scope. 
A more complete discussion of declarations is contained in the language 
reference manual. 

The routines of the CALL/36 0-OS PL/I compiler that perform declaration 
processing are: 

DCL Generator ($DCLGN) 
Attribute Analysis ($ABAL) 
Attribute Node Creation ($ANCRE) 
Locate Identifier ($FSyM) 
Locate Variable ($FVAR) 
Label Processor ($BLPRC) 

The DCL Generator ($DCLGN) is called as the result of a DECLARE 
statement. It directs the analysis and encoding of attributes for 
identifiers in that statement. In doing so, it calls the other 
declaration processing routines as subroutines. 

$ABAL analyzes and encodes an identifier's attributes; $ANCRE creates 
a dictionary attribute entry; and $FSyM determines whether a dictionary 
attribute entry has previously been created in the block for this 
entry. If a previous declaration conflicts with the present 
declaration, an error message is issued. 

As noted above, the Attribute Analysis routine ($ABAL) is called by 
$DCLGN to analyze and encode the attributes of an identifier. Jt is 
also called by the PROC Generator ($APRC) to process any RETURNS 
attributes. The results of this routine are placed in the attribute 
table ($ABTBL). This table should not be confused with the dictionary 
attribute list (A list). (For the format of the attribute table, see 
Appendix A. ) 

The Attribute Node Creation routine ($ANCRE) is also called by either 
$DCLGN or $APRC. Its function is to create a dictionary attribute 
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node using the information placed in the attribute table by $ABAL. 
If the identifier is dimensioned, a skeletal dope vector is built. 
If the array bounds are constant , the dope vector bounds are 
initialized. If the array bounds are variable, code that will calculate 
the dope vector bounds at execution time is generated. 

The Label Processor routine ($BLPRC) is called to process all label 
prefixes. It creates a dictionary attribute entry for the statement 
label or entry name and resolves any tentative declaration previously 
made (for example, as a result of a GOTO statement) . 

The Locate Identifier routine ($FSYM), although grouped with the 
declaration processing routines, is not used solely for declaration 
processing. Inputs to this routine are an identifier token and a block 
number. $FSYM determines whether the identifier has been previously 
declared or used in the block indicated or in a block which is internal 
to the indicated block. 

The Locate Variable routine ($FVAR> is not referenced by other 
declaration processing routines. It is called by the CALL, OPEN/CLOSE, 
GET, PUT, or Format List Generator when certain variables are 
encountered. It is also called by the Expression Processor Controller 
($NEXP) for each variable which it encounters. This routine is used 
to locate the most recent or the current dictionary attribute entry 
for a variable, and, if there is none, to create a definition for it. 
If there is more than one dictionary attribute entry for an identifier, 
the most recent entry is the entry with the highest block number. 

INPUT/OUTPUT STATEMENT PROCESSING 

CALL/360-OS PL/I progrcuns have the ability to transmit or receive 
stream-oriented data (that is, data in the form of a continuous stream 
of characters). This form of data contrasts with record I/O, which 
is not supported in CALL/36 0~OS PL/I. Data may be transmitted or 
received from two types of devices: remote terminals and disk units. 
A program may address only one terminal, namely, the one at which the 
program was entered. An unlimited number of disk files may be 
processed; however, only four may be open at the same time. For both 
terminal and disk, the data stream may be specified as list-, 
data-, or edit-directed. 

The I/O routines process the OPEN, CLOSE, GET, PDT, and FORMAT 
statements. (GET, PUT, and FORMAT are used to address both terminal 
and disk; OPEN and CLOSE pertain only to disk.) The relationships 
of the I/O routines are illustrated in Figures 2-3, 2-4, and 2-5. 
Details are given in the paragraphs which follow. 
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In processing I/O statements ^ the compiler generates calls to library 
runtime routines. The library runtime routines associated with 
list-y data-^ and edit-direct ed types of I/O are shown in Figures 2-6^ 
2-7, and 2-8. 
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Figure 2-8. Edit-Directed I/O Flow of Control 



The Phase 1 Initializer ($CCONT) calls the OPEN/CLOSE Generator ($OPEN, 
$CLOSE) when it encounters an OPEN or CLOSE statement. The OPEN/CLOSE 
Generator calls the O/C Specification routine ($DOCS) to scan the 
statement and determine which options are present. (Available options 
are the INPUT, OUTPUT, FILE, and TITLE attributes.) 
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If the statement is CLOSE, code is generated to; 

1. Obtain the location of the file control interface block CFCIB) 

2. Call the library runtime Close routine (IHECLOSE) • 

If the statement is OPEN, space is obtained in the initialization table 
(I table) for a file control interface block CFCIB) if the file was 
not previously opened or declared. When phase 2 of the compiler 
processes the initialization table, it will move this FCIB to static 
and constants storage. Code is generated to: 

1. Obtain the location of the FCIB 

2. Generate instructions to transfer around the rest of the code 
generated for OPEN if the file is already open 

3. If the TITLE pointer is null, generate code to move the filename 
into the title field of the FCIB. Otherwise, call the Expression 
Processor Controller ($NEXP) to generate code to evaluate and 
move the title expression into the title field of the FCIB. 

4. Generate code to call the library runtime Open routine (IHEOPEN). 

Except for PUT DATA and GET DATA statements, processing of a GET or 
PUT statement causes the following object code to be generated: 

1. A call to an initialization routine 

2. Instructions to put the location of a data element descriptor 
(DED) and the variable into the file control block (FCB) . If 
the I/O type is EDIT, instructions to put the location of a 
format element descriptor (FED) into the FCB are also generated. 

3. A call to a routine which reads or writes a data item. 

Steps 2 and 3 are repeated for each item in the data list. After all 
items have been processed, code to call a termination routine may be 
generated. The DED's are generated at compile time and are moved into 
the static and constants area when phase 2 of the compiler processes 
the initialization table- If possible, the same procedure is used 
for the FED'S. If an FED is too complex to evaluate at compile time, 
instructions to evaluate it at runtime will be generated. 

If the statement is a GET DATA or PUT DATA statement, a symbol table 
is built; one item is entered for each item in the data list. (See 
Appendix E. ) If no data list is present, a symbol table entry for 
each identifier in the block will be generated at epilogue time. A 
symbol table entry consists of a DED and the EBCDIC name for an item. 
In addition, code is generated to call the appropriate library runtime 
routine (s) . 

Both the GET Generator and PUT Generator call the I/O Specification 
routine ($DIOS), which scans a statement and locates FILE, SKIP, DATA, 
LIST, and EDIT keywords. These generators also call the Data 
Specification routine ($DDS) to process the data list for every 
statement other than a GET DATA statement. For all statements except 
GET DATA and PUT DATA^ each item in the data list is processed as 
follows: 

1. A DED is constructed. 

2. Code is generated to put the location of the DED into the FCB. 
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3, Unless the I/O specification is EDIT, a call to the proper 

library runtime routine is generated. If the I/O specification 
is EDIT^ a branch and link is generated to part of the code 
generated to process the format list of the statement. This 
code will put the location of the proper FED in the FCB and 
call the proper library runtime routine. 

These three steps will be repeated until the data list is exhausted. 
If the statement is PUT DATA^ an entry will be made in a symbol table 
for each item in the data list and a call to either IHEDDOA or IHEDDOB 
of the Data-Directed Output routine will be generated for each symbol 
table. 

The $FLGy $FMTy $FORl, and $FPDL routines handle the format lists for 
edit-directed I/O. $FPDL is called by the GET Generator ($BGET) or 
PUT Generator ($BPUT) to process a format list for edit-directed I/O. 
The processing of a format list will cause the generation of code (to 
be called as if it were a subroutine). Therefore, the first function 
of $FPDL is to generate a branch around the code for the individual 
format items. This branch will be directed to the beginning of the 
code which will be generated to process the data list. Then, $FLG 
is called to direct the generation of code for the individual format 
items. On return from $FLG, $FPDL generates a branch back to the code 
generated for the first format item. At object time, this branch will 
be executed if the number of scalar data items in the data list is 
greater than the number of associated items in the format list. Then, 
$FPDL resolves the branch around the code for the format list. 

$FLG performs the syntax analysis and code generation for a format 
list. For each format item, it generates the following code: 

1. Save the location from where called. 

2. Put the location of the FED into the FCB. 

3. Call the appropriate library runtime routine. 

4. Return to the location from which called with a branch and link 
instruction. This location will contain code generated for 
the next item in the data list. 

$FLG calls $FORI to analyze and generate any code necessary for 
expressions in a format specification and to create a FED. 

$FMT is not called by any I/O statement processing routine. When the 
Phase 1 Initializer ($CCONT) encounters a FORMAT keyword, $FMT is 
called to create a remote format list. The generated code is similar 
to that generated for a format list in a GET or PUT statement. Like 
$FPDL, $FMT calls $FLG to process the format list. 

The code generated for a format list is driven by the code generated 
for the data list as illustrated in Figure 2-9. In this example, the 
data list contains two items and the format list has two entries 
describing these items. 
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Figure 2-9 • Relationship of the Code Generated for the Data List and 
Format List 

EXPRESSION PROCESSING 

Certain common syntactic units are processed by the routines grouped 
as expression processing routines. Generally^ the function of 
expression processing is to generate triads from syntactic units which 
are represented by tokens. Expression processing is invoked by calling 
the Expression Processor Controller ($NEXP> • A call is generated in 
any of the following cases: 

1. By a statement processor to evaluate an expression. For example, 
the following statement contains an expression to be evaluated: 

IF A<1 THEN GO TO KFILE; 

$NEXP is called by the IF Generator to evaluate the expression A<1, 

2. By the CALL Generator ($CALL) to process the CALL statement 
entry name and the argument list- 
s' By the Assignment Generator ($ACGEN) to process the entire 

assignment statement. An example of such a statement is: 

A = CB*(C+D) + MAX(A,B))/16; 

The routines concerned with expression processing are: 

Argument Operand Processor ($NATTP) 
CALL Generator ($NCALL) 

Cross-Section Dope Vector Build ($NCSDV) 
Expression Processor Controller ($NEXP) 
Dimension Multiplier Generator ($NMULT) 
Convert Operand ($NOPCV) 
Operator Stack Processor C$NOPRT) 
Operand Set-Up ($NPRE) 
Generate Triad ($TRIAD, $STRD) 
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Expression processors operate on the input tokens and generate triads. 
The processed tokens are the unarranged representation of the source 
stream and consist of operator and operand tokens. Two operands and 
an operator form a triad. An operand ^ itself ^ can be another triad. 

The two primary routines of expression processing are the Expression 
Processor Controller ($NEXP) and the Operator Stack Processor ($NOPRT) 
$NEXP processes the input token stream and makes entries to the 
expression, operator, and operand stacks. $NOPRT operates on these 
stacks and creates triads. The items in these stacks are processed 
on a LIFO (last in, first out) basis. Figures 2-10 and 2-11 are 
simplified flow diagrams of $NEXP and $NOPRT. 
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To analyze the functioning of these routines^ consider the following 
assignment statement: 

A = 5*(B + C ~ D); 

At entry to expression processing, each of the syntactic units has 
been converted to a token (A, B, C, and D, to operand tokens; all 
others, to operator tokens). The operator tokens have the following 
priorities: 

Token Priority 



_. 


01 


♦ 


09 


( 


13 


+ 


18 


- 


18 


) 


12 


• 


00 



These priorities are expressed as two-digit ntambers. The first digit 
represents the parenthesis level; the second represents the priority 
contribution of the operator. The order of evaluation is dependent 
upon the operator order in the expression and the operator priority. 
Operators and operands are added to their respective stacks until an 
operator having priority equal to or less than the priority of the 
previous operator stack entry is encountered. At this pointy a triad 
is formed from the operator and operand stacks. In the qase of a 
simple expression (such as the above example) , the triad is formed 
from the last entry in the operator stack and the last two entries 
in the operand stack. 

Note : The entries to the operator and operand stacks are an expanded 

form of the original tokens. See the discussion of these stacks 
in Appendix B. 

Expression processing proceeds as follows. 

1. Control is acquired by $NEXP with the token pointer at A. After 
initialization, the contents of the expression, operator, and 
operand stacks and the triad table are: 

Expression Stack Operator Stack Operand Stack Triad Table 
(V Table) (X Table) (Y Table) (Z Table) 

Assign Null Empty Empty 

2. After $NEXP processes tokens A to ♦, the tables contain: 

Expression Stack Operator Stack Operand Stack Triad Table 
(V Table) CX Table) (Y Table) CZ Table) 

Assign Null A Empty 

5 

♦ 

3. The left parenthesis generates an expression entry in the 
expression stack and a left parenthesis entry in the operator 
stack. After $NEXP has processed token C, the tables contain: 
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Expression Stack 
(V Table) 

Assign 
Expression 



Operator Stack 
(X Table) 

Null 

* 
( 



Operand Stack 
(Y Table) 

A 
5 
B 
C 



Triad Table 
(Z Table) 

Empty 



4. Up to this pointy no triads have been developed because the 

operators encotmtered so far are in order of increasing priority. 
The next token is a minus sign^ which is equal in priority to 
a plus sign. This causes $NEXP to call $NOPRT. $NOPRT removes 
one operator and two operands from their respective tables and 
uses them to generate the triad B + C. A reference to this 
triad is placed in the operand stack. At this pointy the tables 
contain: 



Expression Stack 
(V Table) 

Assign 
Expression 



Operator Stack 
(X Table) 

Null 

♦ 
( 



Operand Stack 
(Y Table) 

A 
5 

Tl 



Triad Table 
(Z Table) 

Tl 



where Tl and similar entries below represent triads. 

When the right parenthesis is encountered^ triads are developed 
until the preceding left parenthesis is removed. Then, the 
tables contain: 



Expression Stack 
(V Table) 



Operator Stack 
(X Table) 



Operand Stack 
(Y Table) 



Triad Table 
(Z Table) 



Assign 



Null 



A 
5 
T2 



Tl 
T2 



6. The semicolon causes triad generation to be completed. The 
expression, operator, and operand stacks are now irrelevant. 
The triad table contains two additional entries; its contents 
are shoim below: 



Triad 

Tl 
T2 
T3 



Triad Table 
CZ Table) 




Left 
Operand 




Operation 


Right 
Operand 


B 

Tl 
5 
A 




* 


C 
D 

T2 
T3 



Control will be returned to the calling routine Cin this case, 
the Assignment Generator ($ACG£N)). Then code generation will 
be invoked by calling the Triad Code Generator C$TCODE) . Object 
code will be generated by processing the triad table. 

The triads generated in the previous example assume that neither 
conversion nor scaling is necessary. If conversions or scaling are 
required, additional triads have to be generated to perform these 
operations. Scaling and/or conversions are necessary when attributes 
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of the operands differ. In the example above^ if B were floating-point 
and C were fixed-point, C wotild be converted to floating-point before 
it was added to B. Situations in which conversions and scaling are 
performed are discussed in detail in the CALL/3 60-OS PL/I Language 
Reference Manual . 

Other routines are also involved in expression processing. The Argument 
Operand Processor ($NATTP) is called by $NOPRT when processing the 
arguments of a CALL statement or a function reference. It extracts 
the attributes of these arguments. If an attribute of an argument 
does not agree with that of the corresponding parameter, $NOPRT calls 
the Convert Operand routine ($NOPCV) to perform the conversion, if 
possible. 

The Call Generator C$NCALL) is called to generate the triads needed 
to call a function or subprogram. 

The Cross-Section Dope Vector Build routine ($NCSDV) is called by $NEXP 
if an array cross- section is used as an argument of a CALL statement 
or a function reference. This routine builds a dope vector for the 
array cross- section. 

The Dimension Multiplier Generator ($!®4DLT) is called by $NOPRT. It 
generates the triad required to multiply a subscript value by the 
dimension multiplier associated with the current array dimension. 
Thus, it performs part of the computation necessary to locate an array 
element. (See "Dope Vectors" in Appendix D for a description of the 
algorithm used to locate an element of an array.) 

The Convert Operand routine ($NOPCV) is called to convert or scale 
an operand. If the argument is a source constant and the desired 
conversion is arithmetic to arithmetic, its attribute entry is changed 
to indicate the desired attributes. Later, when $NCONS is called (by 
$NOPRT, $NEXP, or $TRIAD) , this constant will be converted to the 
desired form. Thus, no object code need be generated to perform the 
conversion or scaling. If the operand is not such a source constant, 
any triads needed to achieve the desired type and scale are generated. 

The Operand Set-Up routine ($NPRE) is called by $NEXP or $NOPRT to 
move the top entry of the operand stack to an operand area. It then 
obtains the type, sign, scale, precision, and length attributes of 
the operand and moves them into this operand area. When the calling 
routine is $NEXP, these attributes represent the result operand. For 
all other types of operands, the calling routine is $NOPRT. 

The Generate Triad routine ($TRIAD, $STRD) is called to generate a 
single entry in the triad table. The calling routine may be one of 
the expression processing routines ($NOPRT, $NOPCV, $NMULT, $HEXP, 
or $NCALL> or certain of the general statement processor routines. 

Expression processing may be considered from another aspect, namely, 
that of the tables with which it interfaces. This relationship is 
shown in Figure 2-12. All illustrated tables have been mentioned 
except the library load table (L table) and the constant table (C 
table) . Entries are made in the library load table if a call to a 
runtime library subroutine is generated. (Such calls do not, of course, 
include calls of and references to internal procedures.) Entries may 
be made into the constant table when the Constant Processor ($NCONS) 
is called to direct conversion of a source constant to a desired form, 
if necessary. If the converted form is not already in the constant 
table, it will be entered. (The tables are explained in detail in 
Appendix B. ) 
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Figure 2-12, Expression Processor Tables 

CODE GENERATION 

The function of code generation is to produce final object code from 
the triads produced by expression processing and/or the statement 
processors. Code generation is invoked by the Phase 1 Initializer 
($CCONT) after the triads for a statement (or^ in certain cases, part 
of a statement) have been generated. Figure 2-13 illustrates the 
relationship between the code generation modules. 
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Fi^iure 2- 13* Code Generat:ion 



The tvo primary routines of code generation are Triad Code Generator 
($TCODE) and Instruction Assembler ($VINSA). Code generation is invoked 
by calling $TCODE which processes the triad table entries in order ^ 
starting with the first entry and continuing until all triads have 
been processed. Figure 2^1*» shows the tables that are referred to 
by the $TCODE module. In the illustration, those tables connected 
by broken lines are acttJially assembled as part of $TCODE. 

The Triad Operand Processor ($TOPR) is called to put information 
describing the two operands of a triad into the data parameter table 
C$PTO). (For a description of this table, see "Compiler Variables* 
in Appendix A. ) The triad operator directs a branch to the section 
of $TCODE which controls its processing. In general, this processing 
consists of: 

1. Determining the sign of the operands and the sign of the result 
of execution of the triad code. Signs may be adjusted to 
optimize the required instruction sequence. 

2. Arranging the operands, when possible, to insure optimum code 
generation. 

3. Selecting the set of symbolic instructions in the symbolic 
instruction table (M table) to be used by $VINSA in generating 
the code for the triad. As shown in Figure 2-14, the symbolic 
instruction table is part of the $TCODE module. (For its 
description, see Appendix B.) 
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$TCODE t:hen calls $VINSA, passing to it the location of the selected 
set of symbolic instructions. These symbolic instructions represent ^ 
in a general way, the object code which will be produced for that 
triad. The function of $VINSA is to interpret, modify, and, in some 
cases, optimize these general instructions into specific, machine- 
language instructions. The general processing performed by $VINSA 
for most instructions is: 

1. Using the information passed about the operands and the operation 
to be performed, change the operation code, if it is modifiable, 
to the System/360 machine code for that instruction. For 
example, if LOAD were the general operation passed, it would 

be changed to the System/360 op code L, LE, or LD (depending 
on whether the referenced item was fixed point, short float, 
or long float) . 

2. Generating the remainder of the instruction. 

Besides operations that conform closely to machine operations, $VINSA 
processes a class of instructions that involve pseudo-operations. 
Examples of pseudo-operations are: 

1. Load Complex - This pseudo-operation may generate code which 
will cause two registers to be loaded, one with the real part 

of a number and the other with the imaginary part of the number. 
The registers need not be loaded if the items are already in 
registers. 

2. Save Volatile Registers - This pseudo-operation is used prior 
to the generation of calls to object-program library routines. 
It causes the generation of code to store fixed registers 
and 1 and floating-point registers and 2 (which are volatile 
across library calls) in temporary storage if they contain 
active intermediate results. 

Figure 2-15 describes the relationship of the Instruction Assembler 
($VINSA) and its tables and output. 
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The Optimize Operands routine ($OPMZO) is called by $TCODE to determine 
whether either operand is in a register and^ if so^ imder certain 
conditions, to interchange the operands. For example, assume that 
the operation to be performed is to add B to A, that B is in a register, 
and that A is not. The operation will be changed to add A to B, thereby 
eliminating the need to load A into a register (and B is already there). 

The Triad Operand Processor ($TOPR) is called by $TCODE to put 
information concerning the two operands of a triad into the data 
parameter table ($PTO) . This information includes the core address, 
core sign, register address, register sign, and length of the operand. 

The Storage Address Assembler ($VDSAC) is called by $VINSA to convert 
the compiler's internal representation of a storage address (base code 
and displacement) into a machine address (base register and 12-bit 
displacement) . If the storage address is not within 4096 bytes of 
any base register, instructions to set up a base register are also 
generated. 

The Adcon Register Assignment routine ($VASGA) and the Computational 
Register Assignment routine ($VASGC) are used in register manipulation. 
Part of the initialization to run a job is to set up certain registers 
which are never modified during program execution (base registers for 
the object code and bases of frequently referenced areas) . The 
remainder of the registers (adcon registers that are adjusted if the 
program is relocated and computational registers that are not) are 
set and modified as needed. $VASGA is called to obtain the least-used 
adcon register and $VASGC is called to obtain either a single or a 
double computational register. $VASGC makes its selection so that 
optimum code will be generated. For example, a free register will 
be chosen in preference to one that contains a value which may be 
needed later. 

The Register Table Initializer ($VCLR) is called by the Phase 1 
Initializer ($CCONT). It obtains and initializes an area for the 
register table. Only code generation routines use the register table. 
The Temporary Storage Management routine ($VGTMP) is called to obtain 
the base code and displacement of an area of temporary storage. The 
String Constant Dope Vector Initializer ($SCDV) is called by $TCODE 
to create a string dope vector when it encounters a call of the string 
to an arithmetic function which references a constant. 
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PHASE 2 OR WRAP-OP PHASE 

After the END Generator ($EDGN) of phase 1 has determined that the 
last source statement has been processed, it calls the Executive to 
request initialization of phase 2. The Executive loads the phase 2 
modules and the runtime library routines in the area formerly occupied 
by the phase 1 compiler routines • Then it transfers control to the 
Phase 2 Initializer ($WCONT) . This routine sets up the adcons 
pertaining to the phase 2 compiler routines in the fixed area of the 
compiler work space (see Appendix A for a description of this area) . 
Then it transfers control to the Compilation Wrap-Up Driver ($MCWU). 
$MCWU directs the wrap-up process. When wrap-up is complete, it calls 
the Executive to request execution. Figure 2-16 shows the relationship 
between the various wrap-up routines. 
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Figure 2-16. Wrap-Up Routines 



The function of phase 1 was primarily to generate machine- language 
(object) code for CALL/360-OS PL/I source-program statements. The 
function of phase 2 is to set up the items referenced by the object 
code. Constants, library routines, and adcons are set by processing 
the tables generated during phase 1. Figure 2-17 shows a cumulative 
correspondence between the tables processed and the storage layout 
of the user's work space. The routines are discussed below in the 
order that they are called by $MCWU. 
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Figure 2-17 • Storage Allocation During Compiler Wrap-t^ 



The Line Number Table Processor ($HLNTP) processes and moves the line 
number table (D table) adjacent to and immediately following the 
generated code. Each entry in the line number table correlates the 
number of a source statement with the object code displacement of that 
statement. This table is used for diagnostic and error message purposes. 

The Constant Table Processor ($HCTP) processes the constant table (C 
table) and moves the constants to the static and constants area 
(adjacent to the line number table). 

The Static Constants- Adcon Loader ($HSCAL) processes the initialization 
table (I table) and dope vector list (J list) . Depending on the entry 
type^ the item is entered in the adcon or static and constants area. 
If an item entered in static and constants storage is a dope vector 
that will reference an item in static array and string storage ^ an 
entry pointing to the dope vector is made in the dope vector list. 
Note that at this time the adcons are not true addresses ^ but merely 
pointers or displacements. 

The Runtime Library Loader ($HRTLL) determines all library routines 
required by the program. These routines are moved from the compiler 
area to follow the adcons in the work area. Space is allocated in 
working storage for the work areas needed by the library runtime 
routines. The work areas are either relocatable or non-relocatable. 

The Dope Vector List Processor ($HDVTP) processes the dope vectors 
referenced by the dope vector list. Its function is to compute the 
virtual location of a string or an array. (This could not be done 
earlier because the starting location of static array and string storage 
was unknown. ) 

The Adcon Initialization routine ($HAINI) converts all adcons from 
their base code and displacement form to true addresses and resets 
the user- area relocation constants in the communications area. To 
prevent the work area from being swapped during this conversion^ the 
swap flag (SWPFLG) of the communications area is set. 

The Table Collapse routine ($HTCR) is called if^ at any time during 
the compiler wrap-up phase, prior to the loading of the runtime library , 
there is insufficient free space in the variable area. $HTCR collapses 
the C table, D table, I table, and J list. Collapsing consists of 
moving the unprocessed table or list entries into higher core storage 
(that is, into locations previously required for table or list entries 
that have been processed) - 

SUPPORT 

The support routines provide services needed by many routines of the 
CALL/360-OS PL/I compiler. The three routines which handle error 
conditions are Array Expression Error ($AREXP), Compiler Error ($CERR) , 
and Error Message Editor ($XERR). The $AREXP routine is of minor 
importance. It is called when an array expression is in an illegal 
position. 

Control is passed to $CERR when an error so severe that compilation 
must be terminated is detected. All System/360 program interrupts 
are in this group, since no code in the compiler should cause program 
interrupt. When such an interrupt occurs, the Executive transfers 
to ARINTRP of the communications area. Code beginning at ARINTRP 
subsequently transfers to $CERR. In addition, numerous compiler modules 
transfer directly to $CERR %^en they detect a severe error necessitating 
compilation termination. $CERR prints out a message pointing to the 
error and terminates compilation. 
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$X£RR is called for less serious errors* An error message number and 
one or more parameters are passed to $XERR« Using this information, 
$X£RR prints out an error message identifying the error in a terminal 
user's program. 

other support routines perform vital functions. Output Director ($GPUT) 
is called to output a 120-character line to the terminal buffer. The 
Constant Processor ($NCONS, $NC0N) is called when generated code must 
reference a constant. This routine enters the constant in the constant 
table and computes the location in static and constants storage that 
will contain this constant at runtime. Library Search ($NLSIB) is 
called when a statement references a runtime library routine. $NLSIB 
makes an entry in the library load table which indicates to the Runtime 
Library Loader ($HRTLL) that the referenced rimtime library routine 
must be loaded. The Convert Constant routine ($NCVT) is called to 
convert a source constant to a required internal form.. 

The Segment Management routines ($WBACR, $WCTCT, $WEXP, and $WSTEP) 
provide the bookkeeping services necessary to support compiler macros 
which manipulate expandable table segments. In general , these macros 
address nodes within an expandable table segment. In advancing or 
stepping back from one node to the next, a table segment boundary may 
be exceeded. In such a case, the code generated by one of these macros 
will call the proper segment management routine to proceed from one 
table segment to another. 

The Get Next Triad Entry routine ($GTRIAD) is called to get the next 
available entry in the triad table. Calling this routine serves the 
same function as issuing a GNODE macro addressing the triad table. 
Use of $GTRIAD is generally preferable because less space is required 
for the necessary code. 

EXECUTIVE INTERFACE 

Interface between the Executive of the CALL/360-OS system and the 
CALL/360~OS PL/I compiler is performed by means of the user terminal 
table (UTT) , communications area, and the SVC Director module ($SVC). 
The Executive and the compiler communicate with one another by setting 
areas in the UTT and the communications area. The compiler directs 
requests to the Executive by calling $SVC. 
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SECTION 3 - CALL/360-OS PL/I COMPILER ROUTINE DIRECTORY 



INTRODUCTION 

The CALL/360-OS PL/I compiler is functionally divided into the following 
parts 2 

• Controllers 

• Entokening 

• General Statement Processors 

• Declaration Processing 

• I/O Statement Processing 

• Expression Processing 

• Code Generator 

• Wrap-Up 

• Support 

• Executive Interface 

Each CALL/360-OS PL/I compiler routine is described in this section 
under one of the headings listed above. 

PART 1 ■ CONTROLLERS 

The following routines are the controllers of the CALL/360-OS PL/I 
compiler. They are discussed in alphabetic order, according to their 
mnemonics, on succeeding pages. Detailed logic diagrams for the 
routines appear at the end of this subsection. 

Statement Category ($CATEG) 
Phase 1 Initializer ($CCONT) 
Controller ($CNT) 
Phase 2 Initializer ($WCONT) 
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TiTi^: STi^mmm category C$CATEG) 

F«rpoae an^l llsage 

The Stat:eiReot Category romi:ine determines whether or not the next 
statement in the tok^i table is an assignment statement • 

Description 

This routine searches the token table up to the senaicolon token for 
any of the following token coii^inations : 

ident ident 

constant ident 

> ident 

key%iord ident 

If any of these combinations occur, the statement is not an assignment. 

If none of the above combinations occur at zero parenthesis level, 
and at least one equal sign does occur at this level, the statement 
is an assignment statement. 

Errors Detected 

Bone 

I^ocal Variables 

Hone 

Program Interface 

Entry Foinfcs 

§CATES. Expects $PTR to be set to location to begin checking* 

Exit CCHiditions 

Worraal exit only. Returns type of statement code in register GOj if 
greater than zero, assigiunent. 

RotJtines Called 

$CERR CcHKtpiler Error 

Global Variable 

T Table Tok^i Table 

$PTR Token Table Pointer 

Logic Diagram 

Chart 1 shows the detailed logic diagram for the Statement Category 
routine. 
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TITLE: PHASE 1 INITIALIZER C$CCONT) 

Program Definition 

Purpose and Usage 

The Phase 1 Initializer receives control from the CALL/360-OS Executive 
and initializes everything required to begin compilation^ 

Description 

Upon receiving control from the CALL/36 0-OS Executive^ $CCX)NT locates 
the user's work space allocated for the compilation and establishes 
registers to address it. The lengths of the compiler's relocatable 
data area, and the addresses of the compiler's relocatable registers 
are communicated to the CALL/360--OS Executive during the first few 
instructions r which are guaranteed not to be interrupted. 

Instructions are established to receive control of arithmetic 
interrupts. Then the values in the adcon area which address entry 
points in the compiler code are relocated by the value of the compiler 
origin. Initial values are moved into all non-relocatable global 
variables which require them. 

The first segments of all expandable tables are now constructed, and 
the necessary control pointers are initialized for them. In conjunction 
with this activity, the first node of the expression stack is obtained, 
and the first node in the constant table is cleared to zero. The names 
of the Error Message Editor and SVC Director routines are then entered 
into the library load table. These two object program library routines 
are always present, regardless of %diether they are directly invoked 
or not. 

Attribute nodes and name list entries are next created for all built- 
in function names and keywords. The operator stack is reset, and the 
register table is constructed and initialized. Control then passes 
to the Controller to initiate the compilation process. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

Control is transferred to $CCONT via a special interface with the 
CALL/360-OS Executive, which branches to the first byte of the first- 
phase load module with the entry point address in register 7 and the 
address of the user's area in register 12. 

Exit Conditions 

$CCONT is effectively inline; control passes to the Controller ($CNT) 
and does not return. 
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Routines Called 

$CUT Controller 

$HLSIB Library Search 

$VCLR Register Table Initializer 

$FIOT) Search-Insert 

$WEXP Segment Management 

$WCTCT Segment Management 

Global Variables 

All global variables requiring initial values and tables are 
initialized. 

Logic Diagram 

Chart 2 shows the detailed logic diagram for the Phase 1 Initializer 
routine. 
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TITLE: CONTROLLER ($CNT) 

Program Definition 

Purpose and Usage 

The Controller directs the entokening of statements ^ analyzes most 
label prefixes y handles detection of compound statement units ^ and 
directs control to statement processors • 

Description 

The Controller y upon initial entry ^ calls the Entoken routine at its 
second entry point so that it can initialize itself and then entoken 
the first statement. A check is made to see if the first statement 
is an external procedure statement. If not, one is supplied. 

Each statement in the program is checked for the presence of a label. 

If one is present^ the label switch ($CLBI.S) is set ON^ a pointer 

($CLPTR) is set to the labels and the token table pointer ($PTR) is 
advanced to the token following the label. 

The status of the compound statement switch ($CSS) is then checked 
to see if any imits have just been terminated. The Controller uses 
the status of $CSS to determine the program structure caused by IF 
and ON statements. $CSS is a four- position switch: OFF^ THEN^ ELSE, 
and ON. 

If a THEN unit has just been terminated and no ELSE unit is present , 
the branch around the ELSE unit is not generated. Otherwise, processing 
continues as at the beginning of a THEN unit. The word THEN or ELSE 
is skipped, and it is determined whether or not a label is present 
on the unit. The unit is then checked for legality. The following 
statements are allowable in a THEN or ELSE unit: 



assignment 


GO TO 


POT 


BEGIN 


IF 


RETURN 


CM.L 


null 


REVERT 


DO 


ON 


STOP 


GET 







The Controller uses the status of a first executable statement to 
determine whether a DECLARE statement precedes the first executable 
statement of the block. If it does not, the statement must be taken 
out of line and added to the prologue code chain. If it does, the 
statement can be executed in order with no need for branches linking 
it to a chain. This optimization requires that immediately before 
generating code for the first executable statement, the prologue code 
chain is started and the end of prologue instructions generated. 

The syntactic and semantic analysis of the statements is performed 
by the individual statement generators, which also generate the triads 
required for the statements. The Controller determines to which 
statement generator to transfer control. 

If the first token of the statement is not a statement keyword, the 
statement must be an assignment. If it is a statement keyword. 
Statement Category subroutine ($CATEG) is called to determine whether 
it is an assignment. If it is not an assignment statement, the type 
of statement is determined by the first token of the statement. Since 
all statement generators expect $PTR to point to the first token in 
the statement body, it is advanced for nonassignment statements. 

If the statement is a DECLARE, FORMAT, END, PROCEDURE, or BEGIN, the 
statement generator processes the label. Otherwise, the Controller 
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calls the Label Processor subroutine ($BLPRC) to define the label on 
the statement. 

Dpon return from the ON Generator ($CON), it is necessary to determine 
whether the on-unit statement is legal. (The ON Generator made sure 
it does not have a label,) The legal statements are the following: 



assignment 


GO TO 


REVERT 


CALL 


null 


STOP 


GET 


PUT 


BEGIN 



Errors Detected 

PROCEDURE STATEMENT SUPPLIED Cl> 

ILLEGAL • • STATEMENT — NULL CLAUSE SUPPLIED (2) 

• • NOT STATEMENT TYPE, IGNORED (3) 

NOT STATEMENT TYPE — ASSIGNMENT ASSUMED (4) 
MAXIMUM NO. OF BLOCKS EXCEEDED C2«») 

Local Variables 

None 

Program Interface 

Entry Points 

One entry point from the Phase 1 Initializer C$CCONT). 

Exit Conditions 

No exit. At end of compilation, END Generator C$EDGN) directs 
transition to phase 2. 

Routines Called 

$TCODE Triad Code Generator 

$GTRIAD Get Next Triad Entry 

$ATKN Entoken 

$£M>ON Process End of ON 

$EI^£S Process End of ELSE 

$CATEG Statement Category 

$KLPRC Label Processor 

$FIND Search-Insert 

$^iEXP Segment l^nagement 

$X£RR Error Message Editor 

All Statement Generators 

Global Variables 



$css 


Compound Statement Switch 


$CLBLS 


Label Switch 


$E€X5 


End of Source Switch 


T Table 


Token Table 


$PTR 


Token Table Pointer 


lOtPTR 


Label Pointer 


Loaic Diaoram 





Chart 3 shows the detailed logic diagram for the Controller routine. 
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TITLE: PHASE 2 INITIALIZER ($WCONT) 

Program Definition 

Purpose and Osage 

The Phase 2 Initializer initiates the second or wrap-up phase of the 
compiler. 

Description 

$WCONT begins by relocating the values of all adcons for the entry 
points of compiler routines contained in the second phase. It then 
tests the highest severity code produced by diagnostic messages during 
the first phase of compilation. If fatal errors have occurred^ wrap- 
up and execution are prevented^ and ccxitrol returns to the Executive 
via an SVC. If execution is to be allowed, the Compilation Wrap-Up 
Driver routine C$MCWO) is called to complete loading and initiate 
execution. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

Control is transferred to $WC0NT via a special SVC interface with the 
CALL/360-OS Executive, which branches to the first byte of the second- 
phase load module. Register contents are the same as at the end of 
the first phase. 

Exit Conditions 

$WC0NT is inline; it passes control to the Coir^ilation Wrap-Up Driver 
routine ($MCWU) and does not return. 

Routines Called 

$SVC SVC Director 

$MCWU Compilation Wrap-Dp Driver 

$ATKN Entoken 

$GPUT Output Director 

$FNB Get Non-Blank 

$CERR Compiler Error 

$WSTEP Segment Management 

Global Variables 

$SEVCO Highest Severity Code 

$SCNX Scan Index 

$PTR Token Table Pointer 

$BASE Base Address of Compiler 
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The following adcons in the C-area of the communications area are the 
locations of the routines used in phase 2. The values in these locations 
are adjusted by $WCONT« 



aAADUM 


acpuT 


aescAL 


QAMWr 


aOTRA 


aHTCR 


dASIDX 


aHAINI 


aMOiu 


aATKli 


aHCTP 


a STEP 


dATKN2 


aHDVTP 


asvc 


aCERR 


aHLNTP 


awcrcT 


ariND 


aHRTTiL 


awEXP 


aFNB 






Loaic Diaqram 







Chart 4 shows the detailed logic diagram for the Phase 2 Initializer 
routine. 
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PART 1 LOGIC DIAGRAMS 
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Chart 2. Phase 1 Initializer 
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Chart 4 



Phase 2 Initializer 



PART 2 " ENTOKENING 

The following routines perform entokening functions of CALL/360-OS 
PL/I. They are discussed in alphabetic order ^ according to their 
mnemonics, on succeeding pages. Detailed logic diagrams for the 
routines appear at the end of this subsection. 

Increment Scan Index C$ASIDX) 
Entoken ($ATKN, $ATKN2) 
Search-Insert ($FIM)) 
Get Non-Blank ($FNB) 



TITLE: INCREMENT SCAN INDEX ($ASIDX) 

Program Definition 

Purpose and Usage 

Increment Scan Index is used to advance the scan index to the next 
character in the source stream. If the next character is on the next 
line, a new line token is inserted in the token table. 

Description 

If the scan index is not currently pointing to a new line character ^ 
it is simply advanced by one. If it is pointing to a new line 
character, the next line is accessed and a new line token created for 
it. The scan index is then set to the first non-blank character on 
the new line following the line number. 

If there are no more lines and compilation has been completed, the 
scan index is set to point to the end-of-file character. Otherwise, 
a semicolon is supplied. Future END statements needed are provided. 

Errors Detected 

PROGRAM INCOMPLETE — REQUIRED END STATEMENTS SUPPLIED. (85) 
LINE NUMBER NOT FOLLOWED BY BLANK. (106) 

Local Variables 

ASEND END statement 

Program Interface 

Entry Points 

Nonstandard entry. CI return, C2 entry. 

$ASIDX. No formal parameters. Scan index in P5. Pointer to next 

available location in token table in G4 . Address of token table in 

P4. Displacement of next source character from beginning of line in G3. 

Exit Conditions 

Normal exit only. Scan index incremented. G2 destroyed. 

Routines Called 

$WEXP Segment Management 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$CHRFG Building Character String Switch 
$EOS End of Source Switch 

$CCF Compilation Completed Flag 

source Program 

Comments 

This routine assumes that the first significant character in the source 
line is the first non-blank following the line number. Note that this 
affects character strings only. 

Logic Diagram : See Chart 5 
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TITLE: ENTOKEN ($ATKN^ $ATKN2) 

Prcxrraip Definition 

Ptirpose and Osage 

The Entoken routine divides the source stream into syntactic units 
(tokens) up to and including the next semicolon token. During this 
process of division, the routine balances parentheses. 

Description 

The Entoken routine creates token table entries for all syntactic units 
in the source stream from the current position in the source to the 
next semicolon token. 

The Entoken routine recognizes the following syntactic units: 

!• Id^itifiers and keywords 

2, Delimiters (including composite) 

3, Constants 

4, Comments 

With several keyword exceptions, an identifier or keyword is any string 
of up to eight alphameric characters, the first of which is alphabetic. 

The following chcoracters act as delimiters. 



♦ 


> 


< 


( 


- 


-'> 


-m< 


) 


♦ 


> 


< 


• 


/ 


>= 


<= 


• 


t 


S£ 


-»= 


• 


♦♦ 


¥ 


1 





(The blank delimiter is not needed after the entokening process; 
therefore, it is not represented in the list of delimiters for which 
token table entries are made«) 

Constants are of three types: character-string, fixed-decimal, and 
floating-decimal. Since comments are not significant syntactic units, 
they are skipped during entokening. 

Whenever an identifier token is formed, a search is made of the 
dictionary name list (N list) to determine whether a name entry is 
present for that token. If none is present, an entry is created. 
The token type and a pointer to the name entry for the token are then 
added to the token table. 

Whenever a constant token is formed, a constant attribute entry is 
created which contains a pointer to the name and the attributes 
determined during entokening. 

Each non-left parenthesis token contains a priority indicator which 
is a combination of the parenthesis count and the normal priority of 
the operator. 

The Entoken routine balances parentheses by maintaining a push-down 
(last in, first out) list of all unbalanced left parentheses. Whenever 
a right parenthesis occurs, the top left parenthesis is removed from 
the list and its token in the token table is made to point to the right 
parenthesis. This list is kept in the unbalanced left parenthesis 
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tokens. The left parenthesis token at the head of this list is pointed 
to by ATLPRN (see "Local Variables") • The unbalanced left parenthesis 
tokens are chained together by pointers within the tokens. 

Upon adding a semicolon token to the token table ^ the entokening of 

one statement is complete. The Entoken routine returns to the CALL/360- 

OS PL/I Controller. 

Errors Detected 

EXTRA n', IGNORED. (5) 

•||' NOT SUPPORTED—CHANGED TO • | V. (6) 

IDENTIFIER TRUNCATED TO 8 CHARS. (7) 

EXPONENT MISSING. (8) 

CONSTANT NOT SUPPORTED — DECIMAL USED. (9) 

DELIMITER OR SEPARATOR MUST FOLLOW CONSTANT. (10) 

BIT STRINGS NOT SUPPORTED — CHARACTER USED. (11) 

• • NOT SUPPORTED — BLANK ASSUMED. (12) 

•)• SUPPLIED BEFORE •;'. (13) 

• • ILLEGAL DELIMITER — IGNORED. (14) 

INCOMPLETE COMMENT OR CHARACTER STRING CONSTANT. (103) 
LINE NUMBER NOT FOLLOWED BY BLANK. (106) 
STRING TOO LONG — FIRST 255 USED. (115) 

Local Variables 

ATLPRN Last Unbalanced Left Parenthesis 

ATCLNT Parenthesis Depth Count 

ATCMMA Comma Count for Current Parenthesis Set 

ATNMLG Length of Identifier 

Program Interface 

Entry Points 

$ATKN. No formal parameters. Entokens one statement. 

$ATKN2. No formal parameters. Entokens one statement. 
Used for initial entry only. 

Exit Conditions 

Normal exit only. One statement entoken ed. 

Routines Called 

$FNB Get Non-Blank 

$FIND Search-Insert 

$ASIDX Increment Scan Index 

$SVC SVC Director 

$X£RR Error Message Editor 

$WEXP Segment Management 

$WCTCT Segment Management 



57 



Global Variables 

N Itist 

T Table 

$FTR 

$SCNX 

$CHRFG 

$TAREA 

$LLINE 

$TSOFF 

$PSCRr 

$TSOFF+4 



Dic-tionary Name List 

Token Table 

Token Table Pointer 

Scan Index 

Building Character String Switch 

Translate Area 

Last Line Nmnber Pointer 

Address of Byte within Source Line 

Scratch Adcon Pair 

Address of Beginning of Source Line 



Comments 

Each translate for a certain type of character advances scan index to 
that character • 

Locfic Diagram 

Chart 6 shows the detailed logic diagram for the Entoken routine. 
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TITLE: SEARCH-INSERT ($FIND) 

Program Definition 

Purpose and Osage 

Using an EBCDIC character supplied as inputs Search-Insert searches 
the dictionary name list (N list) for the presence of an entry for 
the identifier and^ if one is present^ returns a pointer to it. If 
no dictionary name entry is present^ one is created and inserted. 

Description 

Each entry in the dictionary hash table points to the head of the list 
of dictionary name entries which hash to this location. This list 
is maintained in sorted order ^ from low to highi^ with one- through 
four-character items appearing before all five- through eight- character 
items. 

The EBCDIC form of the identifier is hashed to obtain an index to the 
dictionary hash table (H table). A pointer L (for last entry) is set 
to point to this location in the hash table. An index P is set to 
the contents of this hash table location or the location of the first 
dictionary name entry in the list. This will be zero if there are 
no items in the list. 

The hash algorithm consists of taking the first four characters of 
the identifier^ padded with blanks if necessary ^ and dividing by a 
constant. The remainder is used as an index into the hash table. 

If an identifier is equal to the one in the name entry pointed to by 
V, it is assumed to be the required identifier. If the identifier 
is less than the name entry, a new entry is created and placed in the 
list between L and P. If the identifier is greater than the name 
entry, L is set to P, and P is advanced to the next entry. If P points 
to the name entry, the entire list has been searched and a new entry 
is inserted after L. Otherwise, the process continues as before. 

This method of searching creates ordered name lists for faster 
searching. 

Errors Detected 

None 

Local Variables 

FINME Name to be Searched 

Program Interface 

Entry Points 

$FIND. Needs an identifier for which to search. G6 has its length 
in characters. P3 has its address. 

Exit Conditions 

Normal exit only. Returns a pointer in GO to the dictionary name 
entry. 

Routines Called 

None 
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Global Variables 

H Table Dictionary Hash Table 

N List Dictionary Name List 

Logic Diagram 

Chart 7 shows the detailed logic diagram for the Search- Insert 
routine • 



TITLE: GET NON-BLANK r$FNB) 

Program Definition 

Purpose and Osage 

Get Non-Blank is used to advance the scan index to the next non-blank 
character in the source program. During this process^ it skips blanks 
and comments* 

Description 

A search is made for the next non-blank character in the current source 
line. If it is a new line character^ Increment Scan Index is called 
to advance to the next line^ where the search continues. 

If the next non-blank character is a slash, a check for a comment must 
be made and, if present, the comment skipped. Upon exit from this 
routine, scan index is pointing to the next non-blank, non- new-line 
character in the source program. 

Errors Detected 

INCOMPLETE COMMENT OR CHARACTER STRING CONSTANT. (103) 

Local Variables 

None 

Program Interface 

Entry Points 

Nonstandard entry. CI return, C2 entry. 

$FNB. No formal parameters. Scan index in P5. 

Exit Conditions 

Normal exit only. Scan index in P5. G2 destroyed. 

Routines Called 

$ASIDX Increment Scan Index 
$XERR Error Message Editor 

Global Variables 

$TAREA Translate Area 

Logic Diagram 

Chart 8 shows the detailed logic diagram for the Get Non-Blank routine. 
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PART 2 LOGIC DIAGRAMS 

The detailed logic diagrams for the routines that perform entokenina 
follow, ^ 



PL/ I SYSTEMS HANUAL 
»ASIOX 



SAStOX j 
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Increment Scan Index 
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PL/I SYSTEMS 
SATKN & SATKN2 
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#L/1 SYSTEMS MANUAL 
SATKN e $ATKN2 



INTERNAL 
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Chart 6. Entoken (Page 2 of 9) 
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SATKN & >ATKN2 



»««**»**«4>«*)»*# 



.X* SKIP PAST * 
*PLUS OR MINUS* 



«* 4i*4i • «# •Jlr^*** * 



♦ TEST SCAN ♦ 

♦ INDEX -> ♦ 

♦ SOURCE ♦ 
« ♦ 



SOURCE » 
DIGIT 7 



««4i««4i#4t4i*4i**«* 



SKIP PAST 
EXPONENT 



«4(««**4>4i*«*««<*4> 



4i4c«»*4>««**4>***i 



^^tt****^****** 



PKECISION > 6 
? 



4i**«i4i4[*«««*4[4>#4< 



♦SET LONG BIT * 



4i**#4'»**««««*4t* 



BRANCH TAKEN 

IP SOURCE « 

OTHER 



•ERROR * 

« * 

.X»i8 SEE ABOVE ♦ 

♦ NOTE ♦ 

* * 



♦«♦ «> « 

♦ ♦ ♦SET ADDRESS ♦ 
♦C3 ..X* OF CONSTANT ♦ 

♦ ♦ ♦ ATTRIBUTE ♦ 
♦♦* * ENTRY ♦ 



♦ •YES 

♦ SCAN INDEX -> ♦ 

SOURCE ♦ 

♦ DELIMITER OR ♦ 

♦ SEP 7 ♦ 



•ERROR ♦ 

« * 

♦ ILL EG CHAR ♦ 

* AFT CNST 10 ♦ 

• * 



*♦* * * 

♦ * ♦ DUPLICATE * 
♦C6 ..X^ATTRIBS, FOP • 

♦ * ♦ CONSTANT * 
«•• ♦ CONVERSION * 



« « 










♦ • AT2^0 


• * 










« * 




•NO 


*** 




♦ •YES •••• 






• 


» * 


* 


* « * 


MAi^lNARY? 






♦ X C3* 


* 


PRECISION IN •X 87 ♦ 
RANGE? ♦ • 2* 






« 


* * 


• 




♦ 




*♦♦ 




* * ♦«♦♦ 


• ♦ 










« « 


* ♦ 






• ••• 




* * 


♦ YES 






4 ♦ 

X* c;> * 

♦ 3* 




• NC 




' 


* * 










«♦*« 












AT350 







«*«****4r4i«*«44i4> 



•HAKE MAXIMUM •...X B7 • 
• PRECISION • ♦ 2^ 
« 4 *♦♦♦ 



66 
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PL/ I SYSTEMS MANUAL 
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PL /I SYSTEMS NAMUAL 
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PUl SYSTEMS MANUAt 
tATKN & $ATKN2 
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Chart 8. Get Non-Blank 



PART 3 - GENERAL STATEMENT PROCESSORS 

CALL/360-OS PL/I general statement processors are described in this 
subsection. The routines are discussed in alphabetic order, according 
to their inneinonics, as shown below. Detailed logic diagrams for the 
routines appear at the end of the subsection. 

Assignment Generator ($ACGEN) 

PROC Generator ($APRC, $APRC2> 

BEGIN Generator ($BEGIN) 

On-Unit Specification Analyzer ($BONSA) 

GO Generator ($BRNH, $BRNH2) 

CALL Generator ($CALL) 

IF Generator ($CIF) 

ON Generator ($CON) 

REVERT Generator ($CRVT) 

STOP Generator ($CSTOP) 

DO-Loop Triad Builder ($DEXP) 

DO Generator ($DOGy $DOG2) 

RETURN Generator ($DRET) 

END Generator ($EDGN, $EDGN2) 

Process End of ELSE ($END£S) 

Process End of ON ($ENDON) 

Expander ($EXPND) 

END Expand ($EYPND) 
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TITLE: ASSIGNMENT GENERATOR ($ACG£N) 

Program Definit:ion 

Purpose and Usage 

The Assignment Generator prepares an assignment statement for analysis 
by the Expression Processor Controller, 

Description 

The assignment symbol in the assignment statement is changed from an 
ordinary equal sign to an assignment type equal. This allows the 
Expression Processor Controller to translate the whole statement and 
perform the assignment. 

If the statement is an array assignment^ the statement is expanded 
and reprocessed by the Expression Processor Controller. Then the 
expansion is terminated. 

Errors Detected 

ILLEGAL ASSIGNMENT STATEMENT. (15) 
ERROR AT • •. (16) 

Local Variables 

None 

Program Interface 

Entry Points 

$ACGEN. No formal parameters. Expects $PTR to point to first token 
in statement. 

Exit Conditions 

Normal exit only. 

Routines Called 

$NEXP Expression Processor Controller 

$CERR Compiler Error 

$EXPND Expander 

$EYPND END Expand 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

Logic Diagram 

Chart 9 shows the detailed logic diagram for the Assignment Generator 
routine. 
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TITLES PROC GENERATOR C$APF.C, $APBC2!' 

Proqraio Definition 

Purpose and Usage 

The PROC Generator analyzes the syntax, creates parameter declarations^ 
and generates triads for PROCEDURE statements. 

Description 

PROC Generator checks to make sure that a label is present on the 
PROCEDURE statement. If a parameter list is present, tentative default 
attributes are created for the parameters. If RETURNS attributes are 
specif ied, they are analyzed and used in creating these attributes. 
If no RETURNS attributes are supplied, default attributes are created 
using the procedure name. 

The code generated for an internal procedure consists of a branch 
around the procedure and the prologue code. Entries for the block 
are made in both the program structure table and block information 
table. 

If the procedure is the external procedure, a second entry point is 
used. This bypasses the main analysis, because the only information 
pertinent to an external procedure is the possible presence of the 
OPTIONS (MAIN) attribute. 

Errors Detected 

ERROR AT • • . (16) 

• • WHERE •,• EXPECTED — SKIPPING TO • ". (32) 

LABEL MISSING. (46) 

ILLEGAL RETURNS ATTRIBUTES, DEFAULT RETURNS ATTRIBUTES USED. (47) 

ILLEGAL OPTION ON EXTERNAL PROCEDURE STATEMENT. (48) 

MULTIPLE DECLARATION FOR • • — THIS DECLARATION USED, (56) 

Local Variables 

APBIT Attribute Bit Mask 

APFIB FIB Pointer 

APTRD Dummy Name Token 

APATT Pointer to ENTRY Attribute 

ARRET Pointer to RETURNS Attribute 

APPRCT Type of Procedure (0 = External) 

Program Interface 

Entry Points 

$APRC. No formal parameters. Expects $PTR to point to token 
following PROC. For internal procedures. 

$APRC2. No formal parameters. Expects $PTR to point to token 
following PROC, For external procedures. 

Exit Conditions 

Normal exit only. $PTR points to semicolon. 

Routines Called 

$ANCRE Attribute Node Creation 

$ABAL Attribute Ai^sljsis 

$Qr2Ri:MD Get Next Triad" Entry 

77 



$BLPRC Label Processor 

$FIND Search- Insert 

$WEXP Segment: Management: 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

P Table Program Structixre Table 

B Table Block Information Table 

A List Dictionary Attribute List 

$CLBLS Label Switch 

$DCHME Name of Current Identifier 

Logic Diagram 

Chart 10 showa the detailed logic diagram for the PROC Generator 
routine. 
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TITLE: BEGIN GENERATOIt ($BEGIN) 

Program Definition 

Purpose and Usage 

The BEGIN Generator cliecks the syntax of a BEGIN statement and generated 
the initial part of the prologue for the block • 

Description 

If a label is present on the statement^ it is processed. The syntax 
is checked by insuring that a semicolcm immediately follows the word 
BEGIN. Entries for the block are made in the program structure and 
block information tables. A triad for the initial part of the prologue 
for a begin block is created. 

Errors Detected 

ERROR AT • • . (16) 

Local Variables 

None 

Program Interface 

Entry Points 

$BEGIN. No formal parameters. Expects $PTR to point to token following 
BEGIN. 

Exit Conditions 

Normal exit only. $PTR points to semicolon. 

Routines Called 

$BLPRC Label Processor 

$GTRIAD Get Next Triad Entry 

$WEXP Segment Management 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

P Table Program Structure Table 

B Table Block Information Table 

Logic Diagram 

Chart 11 shows the detailed logic diagram for the BEGIN Generator 
routine. 
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TITLE: ON^UNIT SPECIPICATIOH AHMiYZER C$BOIIS^) 

Fro<|raro Definition 

Purpose and Osage 

The On--Unit Specification Jynaly2;er checks the OK-condition for legality 
and returns a code indicating the type of unit* 

Description 

The type of token is checked and its keyword c^de obtained* If not 
legal for an ON-condition, a message is given • If the code is for 
EHDFILEr a check is made for (filenas^) and a pointer to the filename 
is returned. 

Errors Detected 

ERROR AT • ". C16> 

FILE NAME MISSING. C40> 

• • NOT FILENAME. (41) 

UNRECOGNIZABLE ON-CONDITION. (44) 

Local Variables 

None 

Program Interface 

Entry Points 

$BONSA. No formal parameters. Expects $PTR to point to condition. 

Exit Conditions 

Normal exit only. $PTR points to token following condition. Register 
G2 indicates type of unit detected: 

G2 = Unrecognizable 

G2 = 4 ERROR 

G2 = 8 FIXEDOVERFLOW 

G2 = 12 OVERFLOW 

G2 = 16 UNDERFLOW 

G2 = 20 ZERODIVIDE 

G2 = 24 ENDFIUS (filename) 

Filename pointer stored in $FILON. 

Routines Called 

$FVAR Locate Variable 
$XERR Error Message Editor 

Global Variables 

T Table Token Table 

N List Dictionary Name List 

$PTR Token Table Pointer 

$FILON on-ltoit Flag and FdB Pointer 

Logic Diagram 

Chart 12 shows the detailed logic diagram for the On-Unit Specification 
Analyzer. 
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TITLE: GO GENERATOR ($BRNH^ $BRNH2) 

Proqrani Definition 

Purpose and Usage 

The GO Generator syntactically and seroantically analyzes GO TO 
statements and generates code to perforin the indicated functions. 

Description 

Five situations may occur during compilation of a GO TO statement: 

1. Forward references to statement- label constants. 

2. Backward reference to statement- label constant in same block. 

3. Backward reference to statement- label constant in containing 
block. 

U. Reference to a statement-label variable in same block or array 
label. 

5. Reference to a statement- label variable in containing block. 

The second and fourth situations present special cases. A branch to 
the statement referenced (or to the GO TO Interpreter (IHESAF) if a 
statement-label variable) is required. 

In any other situation, the GO Generator leaves sufficient space in 
the object code file to insert instructions. Information is placed 
in this area to allow proper code generation later. The proper code 
is inserted into this area when it is determined which of the three 
remaining situations exists. 

Errors Detected 

ERROR AT • • (16) 

•TO' MISSING AFTER 'GO* (36) 

ILLEGAL STATEMENT LABEL — STATEMENT IGNORED (37) 

Local Variables 

None 

Program Interface 

Entry Points 

$BRNH. No formal parameters. Expects $PTR to point to keyword token 
TO. 

$BRNH2. No formal parameters. Expects $PTR to point to token following 
keyword GOTO. 

Exit Conditions 

Normal exit only. $PTR points to semicolon token. 
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Routines Called 



$C£RR 

$FSYM 

$NEXP 

$GTR1AD 

$XBRR 

$AR£XP 



Compiler Error 

Locate Identifier 

Expression Processor Controller 

Get Next Triad Entry 

Error Message Editor 

Array Expression Error 



Global Variables 



T Table 
$PTR 
A List 



Token Table 

Token Table Pointer 

Dictionary Attribute List 



Logic Diagram 

Chart 13 shows the detailed logic diagram for the GO Generator 
routine. 
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TITLE: CALL GENERATOR ($CALL) 

Program Definition 

Purpose and Usage 

The CALL Generator analyzes the syntax and directs generation of the 
triads for a CALL statement. 

Description 

Before passing the entry name to the Expression Processor Controller 
for processing y the CALL Generator ensures that the entiry name is 
properly declared and that the syntax of the statement is correct. 

An entry name of $RESET that is not declared as an entry point is 
defined to be the special CALL/360-OS feature CALL $RESET. In this 
case the identifier following the left parenthesis must be a filename, 
A triad is generated to call the Reset Disk Files routine (IHERSET) 
to execute the reset operation. The address of the file control 
interface block (FCIB) is passed in R13 • 

Errors Detected 

ERROR AT • •. (16) 

• • NOT ENTRY NAME. (17) 

• • NOT FILE NAME. (41) 

Local Variables 

None 

Program Interface 

Entry Points 

$CALL. No formal parameters. Expects $PTR to point to entry name. 

Exit Conditions 

Normal exit only. 

Routines Called 

$FVAR Locate Variable 

$NEXP Expression Processor Controller 

SGTRIAD Get Next Triad Entry 

$XERR Error Message Editor 

Global Variables 

Z Table Triad Table 
T Table Token Table 
$PTR Token Table Pointer 

Logic Diagram 

Chart m shows the detailed logic diagram for the CALL Generator 
routine. 
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TITLE: IF GENERATOR ($CIF) 

Program Definition 

Purpose and Osage 

The IF Generator analyzes the syntax and directs the generation of 
triads for an IF statement. 

Description 

The IF Generator directs the translation of the logical expression 
in an IF statement and tests the result and generates a conditional 
branch to the ELSE clause. An entry is made for the IF statement in 
the program structure table and the compound statement switch is set 
so that a THEN clause is expected. 

A check is performed to insure that a THEN clause follows. If the 
word THEN does not immediately follow the expression , a search is made 
to find it. If it is not present^ a null-statement THEN unit is formed. 

Errors Detected 

ERROR AT • '. (16) 

■THEN* CLAUSE MISSIIWS^ NOLL ASSt»«H>. (39) 

Local Variables 

CITHEN Nan^ THEN 

Program Interface 

Entry Points 

$CIF. No formal parameters. Expects $PTR to point to token following 
IF. 

Exit Conditions 

Normal exit only. $PTR points to token following THEN. 

Routines Called 

$GTRIAD Get Next Triad Entry 

$NEXP Expression Processor Controller 

$XERR Error Message Editor 

$AREXP Array Expression Error 

$WCTCT Segment Management 

$WEXP Segment Management 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

P Table Program Structure Table 

Logic Diagram 

Chart 15 shows the detailed logic diagram for the IF Generator 
routine. 
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TITLE: ON GENERATOR ($CON) 

Program Definition 

Purpose and Usage 

The ON Generator generates code to establish ON-condition addresses. 
It also analyzes the syntax of the ON statement and creates an entry 
in the program structure table (P table) for the ON statement* 

Description 

The conditions for which ON statements are allowed are the following: 

ERROR 

FIXEDOVERFLOW 

OVERFLOW 

UNDERFLOW 

ZERODIVIDE 

ENDFILE (filename) 

ON Generator makes sure that the on- unit is an unlabeled statement. 
The Controller makes sure it is a legal unit. 

Since all temporaries in the on-unit use special temporaries^ each 
on-unit is handled as a procedure block and creates a new entry in 
the temporary storage table (S table) which is removed upon completion 
of the on-unit. 

When an ENDFILE on-unit is encountered, the following special steps 
occur: 

1. Space is obtained for the on-unit parameter list in static and 
constants area. The address of the parameter list is saved 

in the block information table (B table) • (For the format of 
the on-\anit parameter list, see Appendix B.) 

2. The number of ENDFILEs encountered for the current block (B$FILE) 
is incremented. 

3. Code is generated to initialize the on-unit parameter list, 
including the 20-byte on-unit adcon area, address of FCIB. 
An ENDFILE table entry is initialized in the END Generator. 
(See Appendix B.) 

4. Code is generated to call the On- ENDFILE and REVERT Initializer 
(IHEONREV) at entry-point IHEONUN and pass the address of the 
on-unit parameter list in R13. 

Errors Detected 

ERROR AT •,. •. (16) 

LABEL ILLEGAL HERE — IGNORED. (45) 

Local Variables 

None 

Program Interface 

Entry Points 

$CON. No foinnal parameters. Expects $PTR to point to token following 
ON. 
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Exit Conditions 

Normal exit only. $PTR points to first token of the on-unit in the 

ON statement or to semicolon ending the ON statement, (For details 
regarding on- units ^ see the CMjL/360-CiB PL/I Language Reference 
Manual . ) 

Routines Called 

$BONSA On-Unit Specification Analyzer 

$GTRIM) Get Next Triad Entry 

$CATEG Statement Category 

$NCONS Constant Processor 

$X£RR Error Message Editor 

$WEXP Segment Managecnent 

Global Variables 

S Table Temporary Storage Table 

T Table Token Table 

$PTR Token Table Pointer 

P Table Program Structure Table 

$CSS Compound Statement Switch 

B Table Block Information Table 

$FILON On-Onit Flag and FCIB Pointer 

Logic Diagram 

Chart 16 shows the detailed logic diagram for the ON Generator 
routine. 
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TITLE: REVERT GENERATOR ($CRVT) 

Program Definiiiion 

Purpose and Usage 

The REVERT Generator analyzes the syntax and generates the code 
associated with the REVERT statement • 

Description 

The conditions for which REVERT staten^nts are allowed are: 

ERROR 

FIXEDOVERFLOK 

OVERFLOW 

UNDERFLOW 

ZERODIVIDE 

ENDFILE (filename) 

For ENDFILE condition, code is generated to call the On-ENDFILE and 
REVERT Initializer library subroutine CIHEONREV) at entry point IHEREVT. 
The address of the file control interface block (FCIB) is passed to 
the subroutine in R13, All other conditions store revert code directly 
into the DSA for the particular type of on- unit. 

Errors Detected 

ERROR AT • ". (16) 

Local Variables 

None 

Program Interface 

Entry Points 

$CRVT. No formal parameters. Expects $PTR to point to token following 
REVERT. 

Exit Conditions 

Normal exit only. $PTR points to semicolon. 

Routines Called 

$BONSA On- Unit Specification Analyzer 
$GTRIAD Get Next Triad Entry 

$NCONS ' Constant Processor 
$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

$FILON On-Unit Flag and FCIB Pointer 

Logic Diagram 

chart 17 shows the detailed logic diagram for the REVERT Generator 
routine. 
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TITLE: STOP GENERATOR ($CSTOP) 

Program Definition 

Purpose and Usage 

The STOP Generator analyzes the syntax and generates triads for the 
STOP stateinent. 

Description 

The functions of a STOP statement are performed hy a branch to the 
prologue of the external procedure • 

Errors Detected 

ERROR AT " *• (16) 

Local Variables 

None 

Program Interface 

Entry Points 

$CSTOP» No formal parameters. Expects $PTR to point to token following 
STOP. 

Exit Conditions 

Normal exit only. $PTR points to semicolon token. 

Routines Called 

§GTRIAD Get Next Triad Entry 
$XERR Error Message Editor 

Global Variables 

B Table Block Information T&ble 

T Table Token Table 

$PTR Token Table Pointer 

Logic Diagram 

Chart 18 shows the detailed logic diagram for the STOP Generator 
routine. 
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TITLE: DO-LOOP TRIAD BUILDER ($DEXP) 

Program Definition 

Purpose and Osage 

The DO-Loop Triad Builder is used to build the triads required for 
an iterative DO-loop to initialize the DO index, to increment the DO 
index, and to test the DO index for loop termination. 

Description 

The elements of the DO statement along with their attributes are set 
on entrance to this routine in $DOLHS (the DO index), $DORHS (the 
initial value), $DOBY (the increment value), and $DOTO (the final 
value). If the incrawent was not specified in the DO statement, the 
constant one is substituted. Only the required portions of the DO- 
loop control code are generated. Dummy statements are constructed 
from the elements of the DO statement by placing the operators and 
operands in the operator and operand stacks. The stacks are then 
processed to form the required triads. 

Errors Detected 

None 

Local Variables 



DEFLG 



DETEST 



DEPLUS 



Increment type flag: 

= constant increment 

1 = variable increment 

Used to resolve FIB" s to the code that tests for the 
end of the loop. Contains the head pointer to the 
FIB'S which branch to this code. 

Used to resolve FIB* s to the code that tests for the 
end of the loop if the increment is plus. Contains the 
head pointer to the FIB's that branch to this code. 



Proorrcun Interface 

Entry Points 

$DEXP 

Calling Conditions 

All communication is through the global variables. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
No specific output values are returned.. 



Routines Called 

$WEXP 

$NCONS 

$NOPRT 

$WCTCT 

$GTRIAD 



Segment Management 
Constant Processor 
Operator Stack Processor 
Segment Management 
Get Next Triad Entry 
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Global Variables 



$CSS 
$DISPL 

$NTCOR 
$I»RIOR 
$DORHS 
$DOLHS 
$DOSWT 
$DOBY 
$DOTO 
A List 
C Table 
P Table 
X Table 
Y Table 
Z Table 



Cconpound Statement Switch 

Displacement from Variable Table Address to Fixed 

Tables 
Number of Last Triad Generated 
Operator Priority 
DO Statement Right-Hand Side 
DO Statement Left-Hand Side 
DO Statement Switch 
DO BY Clause 
DO TO clause 

Dictionary Attribute List 
Constant Table 
Program Structure Table 
Operator Stack 
Operand Stack 
Triad Table 



Logic Diagram 

Chart 19 shows the detailed logic diagram for the DO-Loop Triad Builder 
routine • 
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TITLE: DO GENERATOR ($DOG^ $D0G2) 

Program Definition 

Purpose and Usage 

The DO Generator generates triads to perform the functions indicated 
by the statement^ checks the syntax of the statement ^ and creates an 
entry in the program structure table for the statement • 

Description 

If the specification is empty, a noniterative DO entry is created in 
the program structure table. No code is generated for this form of 
a noniterative DO statement* 

If the specification contains only a WHILE clause, an iterative DO 
entry is created. The address of the test instructions is established, 
and the logical expression is evaluated and tested. 

If an assignment to an index variable is given, the address and type 
of the index variable are obtained and saved. The initial value 
expression is evaluated, and its type and address are saved. 

Any BY or TO clauses are then evaliaated and their values are assigned 
to temporary variables. If more than one clause of each type is 
present, an error is generated. If no BY clause was given, a BY value 
of 1 is provided, unless no TO value was given (in which case the 
assignment is noniterative and special analysis follows the assignment). 

The DO-Loop Triad Builder routine ($DEXP) generates the setting, 
incrementing, and testing instructions associated with the DO. 

If a WHILE specification is present, code is generated for the logical 
expression and the value tested. After this, or if no WHILE was given, 
the program structure table is pushed down and a return performed. 

All iterative DO's are repeated unless only an assignment and a WHILE 
clause are present. In this case the iterative DO is nonrepeating. 

Code is generated only for those sections of the DO that are present. 
The triad table for a complete DO will look like this: 

Calculate address of index variable 
Calculate starting value expression (expl) 
Calculate TO value expression (exp2) 
Calculate BY value expression (exp3) 
Assign expl to index variable 

Inc Define address - Push down temp level 

Add exp3 to index variable 

Test RFIB 

Compare exp3 to zero 

FIB if negative go to Neg test 

Compare index to exp2 

FIB less than or equal to loop 

FIB end of loop 

Neg test RFIB 

Compare index to exp2 

FIB greater than or equal to loop 

FIB end of loop 

Loop RFIB 

Calculate WHILE clause 
FIB false to end of loop 
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Errors Detected 

ERROR AT • '. (16) 

ILLEGAL •DO* INDEX. (22) 
ILLEGAL 'WHILE' CXAUSE. (25) 

DUPLICATE ' • CLAUSE, (26) 

ITERATIVE 'DO' REQUIRED. (38) 

Local Variables 

DOTYPE Check for Proper DO Terminator 

Program Interface 

Entry Points 

$DOG. Expand DO statement. Expects $PTR to be set to token after DO. 

$D0G2. Expand DO specification in I/O statement. Expects $PTR 
to be set to token after DO, 

Exit Conditions 

Upon encountering a semicolon token or a right-parenthesis token. 
Both exit points leave $PTR set to token that caused exit. 

Routines Called 

$NEXP Expression Processor Controller 

$DEXP DO- Loop Triad Builder 

$GTRIAD Get Next Triad Entry 

$AREXP Array Expression Error 

$XERR Error Message Editor 

$WCTCT Segment Management 

$WEXP Segment Management 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

P Table Program Structure Table 

$DOLHS DO Statement Left-Hand Side 

$DORHS DO Statement Right-Hand Side 

$DOTO DO TO Clause 

$DOBY DO BY Clause 

$DOSWT DO Statement Switch 

Logic Diagram 

Chart 20 shows the detailed logic diagram for the DO Generator 
routine. 
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TITLE: RETURN GENERATOR ($DRET) 

Program Definition 

Purpose and Usage 

The RETURN Generator analyzes the syntax and generates the code 
necessary for the RETURN statement. 

Description 

RETURN Generator makes sure that the RETURN statement is not contained 
within an on-unit and that, if immediately contained in the external 
procedure, it has no return expression-. If it is in a begin block, 
it is treated as appearing in the containing procedure. 

The return expression, if any, is calculated and stored in the dummy 
parameter passed for the return value. Code is generated to branch 
to the procedure block's epilogue. 

Errors Detected 

ERROR AT • • . (16) 

RETURN STATEMENT ILLEGAL IN ON-UNIT. (51) 

RETURNS ATTRIBUTE ILLEGAL IN EXTERNAL PROCEDURE — SKIPPING TO • ; • . (52) 

Local Variables 

DRTKN Return Assignment Tokens 

Program Interface 

Entry Points 

$DRET. No formal parameters. Expects $PTR to point to token following 
RETURN. 

Exit Conditions 

Normal exit only. $PTR points to semicolon token. 

Routines Called 

$NEXP Expression Processor Controller 

$GTRIAD Get Next Triad Entry 

$AR£XP Array Expression Error 

$XERR Error Message Editor 

$WBACK Segment Management 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

P Table Program Structure Table 

B Table Block Information Table 

Logic Diagram 

Chart 21 shows the detailed logic diagram for the RETURN Generator 
routine. 



93 



TITLE: END GENERATOR ($EDGN<r $EDGN2) 

Program Definii:ion 

Purpose and Osage 

The END Generator determines which^ and how many, DO, BEGIN, and PROC 
statements are being closed and whether any IF statements are being 
determined. It also generates the triads and performs the housekeeping 
associated with the closings. 

Description 

If no label follows the word END, then the statement on top of the 
program structure table is being terminated. If a label follows END, 
then each statement down to and including the statement with that label 
is terminated. If a label prefix is present on the END statement, 
its processing must be delayed until the last group or block is ended. 

When a begin or procedure block is being closed, some work, besides 
generating the epilogue code, needs to be done. If the external 
procedure is being closed, con^ilation is completed and it is necessary 
to finish housekeeping tasks such as establishing static storage and 
library linkage. Once this work is completed, the object program can 
be executed. 

At the end of an internal block, all declarations made in the block 
are removed from the dictionary attribute list (A list) . This is a 
simple procedure for variables but more complex for entry names and 
statement- label constants. At the end of each procedure, all 
temporaries for the procedure are removed from the temporary storage 
table (S table) . 

If the dictionary attribute list shows entry names or statement- label 
constants tentatively, rather than explicitly defined in a block being 
closed, it is necessary to search for an explicit definition in the 
immediately containing block. If no explicit definition is found, 
the tentative definition is changed to an explicit definition in the 
containing block. 

If this tentative definition is for a FORMAT statement label, no search 
is made of the containing block and an error message for an undefined 
format is generated. All explicit entry-name or statement-label- 
constant definitions are removed from the dictionary attribute list. 

Each ENDFILE on-unit encountered in the block being ended requires 
eight bytes in the DSA for the block to build the ENDFILE table. This 
area is initialized by a call to the IHEONUN entry point of the On- 
ENDFILE and REVERT Initializer (IHEONREV) at runtime. 

Errors Detected 

ERROR AT • •• (16) 

• • AFTER 'END' ILLEGAL — IGNORED. (27) 

UNDEFINED FORMAT. (28) 

ILLEGAL USE OF • ', (29) 

SOURCE STMTS AFTER END OF PROGRAM IGNORED. (107) 
SEVERE DIAGNOSTICS, EXECUTION PREVENTED. (108) 
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Local Variables 

EDIAST 
EDENTY 
EDFIB 
EDBLKT 





X '01' 




X 'UO' 




X •20' 




X '80' 


ProQram Interface 




Entry Points 





Last Statement: Switch (0 = No) 
Entry Point Code 
FIB Around Symbol Table 
Block End Switch: 



RFIB Around Block 
External Procedure 
Begin Block 
Symbol Table Switch 



Expects $PTR to point to token 



Does not use token table. 



$EDGN. No formal parameters, 
following END. 

$EDGN2. No formal parameters. 

Exit Conditions 

Normal exit. $PTR points to semicolon and also end of compilation exit. 

Normal exit only. One iterative DO closed. 

Routines Called 



$CERR 

$BLPRC 

$ENDES 

$ENDON 

$GTRIAD 

$TCODE 

$FNB 

$SVC 

$XERR 

$WCTCT 

$WEXP 

Global Variables 

$PTR 
T Table 
P Table 
A List 
N List 
$CSS 
B Table 
S Table 

Logic Diagram 



Compiler Error 
Label Processor 
Process End of ELSE 
Process End of ON 
Get Next Triad Entry 
Triad Code Generator 
Get Non-Blank 
SVC Director 
Error Message Editor 
Segment Management 
Segment Management 



Token Table Pointer 
Token Table 

Program Structure Table 
Dictionary Attribute List 
Dictionary Ncime List 
Compound Statement Switch 
Block Information Table 
Temporary Storage Table 



Chart 22 shows the detailed logic diagram for the END Generator 
routine. 
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TITLE: PROCESS END OF ELSE C$END£S) 

ProqraiB Definition 

Purpose and Usage 

The Process End of ELSE routine does the processing necessary at the 
end of an ELSE unit. 

Description 

If necessary 4r the address of the end of the IF statement is defined. 
The program structure table entry for the IF statement is removed and 
the compound statement switch reset. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$ENDES. No formal parameters. 

Exit Conditions 

Normal exit only. 

Routines Called 

$GTRIAD Get Next Triad Entry 
$WCTCT Segment Manag^nent 

Global Variables 

P Table Progrsum Structure Table 
$CSS CcHnpound Statement Switch 

Logic Diagram 

Chart 23 shows the detailed logic diagram for the Process End of ELSE 
routine. 
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TITLE: PROCESS END OF ON ($ENDON) 

Program Definition 

Purpose and Usage 

The Process End of ON routine does the processing necessary at the 
end of an on- unit • 

Description 

The address of the end of the on-unit is defined and the entry in the 
temporary storage table made for the ON statement is removed • The 
program structure table entry for the ON statement is removed and the 
compound statement switch reset. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$ENDON. No formal parameters. 

Exit Conditions 

Normal exit only. 

Routines Called 

$GTRIAD Get Next Triad Entry 

$CERR Compiler Error 

$WCTCT Segment Management 

Global Variables 

P Table Program Structure Table 
$CSS Compound Stat^nent Switch 

Logic Diagrcim 

Chart 2^ shows the detailed logic diagram for the Process End of ON 
routine. 
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TITLE: EXPANDER ($EXPND) 

Program Definition 

Purpose and Usage 

The Expander determines the dimensionality of an array expression, 
generates the DO statements for the expression, and builds a list of 
the temporary variables used for the indices • 

Description 

This routine is called after the Expression Processor Controller has 
detected the presence of an array expression. A pointer to the asterisk 
subscript or array name that caused detection of the array expression, 
a subscript number (called SDBNOM in the logic diagram) , and the pointer 
to the dictionary attribute list entry for the array are available. 
The subscript number is set to zero if an array name caused detection 
of the array. 

The Expander proceeds to remove from the triad table any triads 
generated by the Expression Processor Controller prior to detection. 
It determines if this is an array or a cross-section reference. 

For each dimension, a fixed-point temporary variable is obtained for 
the bounds and a DO statement is generated. 

If the expression is an array, the nuntoer of dimensions is checked 
before proceeding. If it is a cross-section, the subscripts are scanned 
for the next asterisk subscript. The subscript number is properly 
advanced during the scan. 

The generated substitution list is in the form of a token list from 
the left parenthesis for a subscript to the right parenthesis. 

Errors Detected 

None 

Local Variables 

EXDIM Number of Dimensions in Array 

Program Interface 

Entry Points 

$EXPND. Expects $EXPNS and $PTR from Expression Processor Controller. 

Exit Conditions 

Normal exit only. 

Routines Called 

$DEXP DO-Loop Triad Builder 

$GTRIAD Get Next Triad Entry 

$WCTCT Segment Management 

$WEXP Segment Management 
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Global Variables 

T Table Token Table 

Q Table Subscript Substitution Table 

$EXPCT Expansion Count 

$EXPNS Expression Processor to Array Expansion 

Routine Information 

Logic Diaqraip 

Chart 25 shows the detailed logic diagram for the Expander routine. 
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TITLE: END EXPAND ($EYPND) 

Proqraip Definition 

Purpose and Usage 

The END Expand routine generates the END statements necessary to 
complete DO- loops generated by the Expander routine.. 

Description 

For each dimension in the array expression, a call is made to the END 
Generator to con^lete a DO statement. After each entry, the temporary 
variable used for the DO index is released and the corresponding entry 
in the subscript substitution table is set to null. 

Errors Detected 

Noi^ 

Local Variables 

None 

Program Interface 

Entry Points 

$EYPND. No formal parameters « 

Exit Conditions 

Normal exit only^ 

Routines Called 

$EDGN END Generator 

$WCTCT Segment Management 

Global Variable 

$EXPCT Expansion Count 

Q Table Subscript Substitution Table 

Logic Diagram 

Chart 26 shows the detailed logic diagram for the END Expand routine. 
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PART 3 LOGIC DIAGRAMS 

The detailed logic diagrams for CALL/3 60--OS PL/I stiatieinent: processors 
follow. 
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Chart 9. Assignment Generator 
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102 



Chart 10. PROC Generator (Page 1 of 3) 
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Chart 10. PROC Generator <Page 3 of 3) 
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Chart 1 1 . BEGIN Generator 
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PL/t St STEMS lUUWAL 
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♦yES ♦♦♦ 
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itijlc^t**^********* 



*A3*..X* TYPE « 
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♦ERROR ♦ ♦*♦ 
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* TO RIGHT *. 
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* ♦ 
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:ti)f*Wi*********^* 
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******* )((**«[9tl*** 
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*************** 
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*************** 
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* * 

*************** 
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*************** 
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V 

*************** 
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* 

*************** 
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Chart 12. On-Unit Specification Analyzer (Page 1 of 2) 
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4c4i4t«4t4<«4>4<»«*««4( 



**FVAP ^ » 

"""fTno'fTle"" 
-efinition 



* DEFINITI 

If * 



60060 

♦ ♦ ♦ 
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PL/ I SYSTEMS MANUAL 
IBRNH & $BRNH2 



4i«*««4i«««*****4t 



« 4t«t4i*4i** *4it(»« * *« 



P->TOK|N 'TO* 
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* YES 



♦*F SYM ♦ 

♦ ALL BLOCKS ♦ 
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♦ * 
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Bh050 V 
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♦ CONSTANT * 
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Chart 13. GO Generator (Page 1 of 2) 
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BRllS V 

4i)|ii|i«««i|i4i4i«*4i4<itii 



♦ERROR ♦ 






♦ ♦ 
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> TOKEN 
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PUl SYSrtNS MANUAL 
ACAiL 
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♦ l»TR ♦I 
->TOKEW AM' 

♦ ? 



•HO 



• PTR ♦! i • • 
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* ♦ * DECLARED * * ♦ 
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♦ ♦YES ♦ANEXP ♦ *** 
« i ♦— « « 4t 

OECtARATtON ♦.•....•.. X* FXP PRDC ♦...« R^* 
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♦ ♦ 
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Chart 14, CALL Generator (Page 1 of 2) 
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IS NEXT TOKEN 
A CONN A? 





CAn^5 


***<<*** 4<«***4c4'« 




♦ERROR ♦ 
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Chart 15. IF Generator 
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Chart 23. Process End of ELSE 
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Chart 25. Expatider 
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PART 4 - DECLARATION PROCESSING 

The routines described in this subsection are concerned primarily with 
creating and finding definitions (declarations) of variables. Four 
types of declarations are allowed s 

explicit 
implicit 
contextual 
tentative 

Understanding of these types of declarations is essential to 
interpretation of the declaration-processing routines. The types are 
discussed under "Declaration Processiiwf" in Section 2. 

The routines concerned primarily with declaration processing are listed 
below and described in alphabetic order according to their mnemonics 
on succeeding pages. Detailed logic diagrams for the routines appear 
at the end of the subsection. 

Attribute Analysis ($A6AL) 
Attribute Node Creation C$ANCRE) 
Label Processor ($BLPRC) 
DCL Generator ($DCLGN) 
Locate Identifier ($FSYM) 
Locate Variable ($FVAR) 

Some attribute entries are processed in routines described in other 
subsections (for example^ PROC Generator). However^ such routines 
are not concerned primarily with declaration processing. 
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TITLE: ATTRIBUTE ANM.YSIS C$ABAL) 

Program Definition 

Purpose and Usage 

The Attribute Ana;Lysis routine is used by the DCL Generator to prepare 
a bit mask and table of option list pointers that represent the 
explicitly declared attributes of an identifier • 

Description 

Each attribute that it is possible to explicitly declare for an 
identifier is assigned a bit position in an attribute bit string. 
This bit string must be long enough to contain one bit for each 
attribute and for each optional list. If the bit denoting an attribute 
is one^ the attribute was present; if zero^ the attribute was not 
present. Each attribute list is assigned a pointer that points to 
the left parenthesis token of the tokens that describe the list, Thus^ 
the attribute table consists of the attribute bit string and the 
pointers. If an attribute was specified without its list^ a 
corresponding bit is set but the pointer for the attribute list is 
zero, (For a description of the attribute table ^ see "Compiler 
Variables'" in Appendix A, ) 

When an attribute is encountered, an attribute conflict mask for the 
attribute is obtained. This conflict mask is the row of the attribute 
conflict matrix (see Figure 3-1) that corresponds to the attribute. 
By performing a logical AND of the attribute bit string and the conflict 
mask, it is possible to determine whether the new attribute conflicts 
with any previous attributes. If not, the bit for the attribute in 
the bit string is set to one. If the attribute is of the type that 
may have a list, a check is made to see if one is present. If not, 
and the list is only optional, processing advances. Otherwise, the 
pointer for the list is filled and the list is skipped. 

This routine finishes processing at the end of a continuous, unfactored 
set of attributes. 

Errors Detected 

ERROR AT • ', (16) 

ILLEGAL LIST AFTER ATTRIBUTE • * FOR IDENTIFIER • ', (58) 

FOR IDENTIFIER ' • ATTRIBUTE • • CONFLICTTS WITH 

PREVIOUS ATTRIBUTES, (59) 

LIST MISSING AFTER ATTRIBUTE ■ •, (60) 

Local Variables 

ABTB Attribute Conflict Matrix 

Program Interface 

Entry Points 

One entry point accepting a pointer ($PTR) to a token in the 
token table. 

Exit Conditions 

Exit upon detection of a comma, semicolon, or right-parenthesis 
token, $PTR points to this token. 
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Chart 27 shows the detailed logic diagram for the Attribute Analysis 
routine. 
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TITLE: ATTRIBUTE NODE CREATION ($ANCRE) 

Program Definition 

Purpose and Usage 

The Attribute Node Creation routine translates the information in the 
attribute table ($ABTBL) into a dicticmary attribute node. However^ 
it does not enter this node into the dictionary attribute list. 

Description 

Because file and entry name declarations require special handling, 
the first distinction made after entering this routine is whether or 
not a variable is being declared. This distinction is made using a 
logical AND of the attribute bit string and a classification mask. 
This classification mask and other classification masks used by the 
Attribute Node Creation routine are shown in Figure 3-2. (For a de- 
scription of the attribute table, see "Compiler Variables" in Appendix A.) 
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Figure 3-2. Classification Masks 

If the declared entry is not a variable, it is determined whether a 
file or an entry name is being declared. In either case, space for 
a dictionary attribute node is obtained, special attributes are encoded, 
and transfer is made to the section of the routine that encodes the 
common attributes shared by all declarations. 

Since entry ncune declarations may have entry name declarations within 
them, a push-down list is maintained idiich indicates the processing 
state when a nested entry name declaration was encountered. This entry 
name declaration list allows this routine to be pseudo- recursive. 
The contents of the list entries are: 

1. Pointer to the entry attribute node being processed (P$SENT) . 

2. Number of parameters previously processed (P$ZNP) . 

3. Pointer to last parameter attribute node processed (P$ZPRM) • 

4. St,ate of processing (RETURNS attributes or parameter list (P$ZSP)). 

5. Pointer to current position in en tokening of parameter list (P$ZETK). 

For convenience in storage, this push-down list is kept in the program 
structure table. The top node of the push-down list is kept in the 
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local variable ANPOL. (For a description of the entry name declaration 
list, see Appendix B.> 

If a file declaration for SYSIN or SYSPRINT is made, a search is made 
to see if there is a corresponding external definition (in block zero)* 
If not, one is created that is the sanae as the definition just made. 
If so, the new definition is compared with the corresponding definition 
for consistency. 

If a variable is declared, space is obtained for a dictionary attribute 
node. The size of the space depends Cfn %^ether the variable is 
dimensioned. If it is, the din^nsion list is analyzed at this time. 
Checks are made to ensure that all the specified bounds are legal. 
If necessary, code is generated to evaluate the bounds at execution 
time. A skeleton dope vector is established for each dimension 
variable. All bounds of constant value are initialized into this 
skeleton dope vector. 

If the variable is aritlunetic, any precision, mode, or scale defaults 
are added. The arithmetic attributes are then encoded and transfer 
is made to the ccManmon attributes section (see below). 

If the variable is character, its string length is evaluated in a 
manner similar to dimensions. Any string attributes are established 
before taking care of the ccmmyn attributes. 

The common attributes section establishes attributes such as scope, 
type of declaration, and block in whicti information was declared. 
Ail actions to complete the attribute node are performed. 

Errors detected 

mm<m at • • . cie) 

ILLIGM. USE OF • ' ATTRIBUTE. (20) 

ILLEGAL RETORNS ATTRIBUTES — DBFAULT RETURNS ATTRIBUTES USED. (47) 

USE OF • • HERE CONFLICTS WITH PREVIOUS USAGE. (57) 

PRECISION ATTRIBIFTE IS ILLEGAL — D^-AULT USED. (62) 
ILLEGAL PARAMETER ATTRIBUTES FOR * * . (63) 

ILLEGAL SCALE FACTOR FOR • ■ — IGNORED. (6«») 

NOT ALL DIMENSION EXPRESSIONS ARE CONSTANTS. (65) 

FOR STRING ' * LENGTH NOT A CONSTANT. (66) 

• • HAS ILLEGAL L^GTH—225 USED. (67) 

• • HAS ILLEGAL •♦• DIMENSION OR STRING LENGTH. (68) 

ATTRIBUTE FOR FILE " ' CONFLICTS WITH PREVIOUS DECLARATION OR USE. (69) 

IMPROPER ARRAY BOUND. (104) 

Local Variables 

ANRPT Internal Routine Return Point 

ANTPTR Entry Value of SPTO 

Register G3 Address of Attribute Node 

ANPDL and ANPLEV Entry Name Declaration List Pointer 

ANDVL Dope Vector Length 

Program Interface 

Entry Points 

One entry point. Only input required is an attribute table and $DCNME. 

Exit Conditions 

Normal exit only. Output consists of a pointer to a dictionary 
attribute node in register GO. 
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Routines Called 



$ABAL 

$CERR 

$NEXP 

$STRD 

$GTRIAD 

$NCONS 

$AR£XP 

$X£RR 

$WCTCT 

$WEXP 



Attribute Analysis 

Compiler Error 

Expression Processor Controller 

Generate Triad 

Get Next Triad Entry 

Constant Processor 

Array Expression Error 

Error Message Editor 

Segment Management 

Segment Management 



Global Variables 



$DCNME 
$APARM 
A List 
I Table 
J List 



Name of Current Identifier 

Switch Determining Whether Identifier is Parameter 

Dictionary Attribute List 

Initialization Table 

Dope Vector List 



Logic Diagram 

Chart 28 shows the detailed logic diagram for the Attribute Node Creation 
routine. 
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TITLE: LABEL PROCESSOR ($BLPRC) 

Program Def initiion 

Purpose and Usage 

The Label Processor defines the address of a statement label or entry 
name. It also resolves any tentative declaration previously made. 

Description 

Locate Identifier {$FSYM) is called to find any declaration in the 
current block of the identifier pointed to by the label pointer. If 
a previous declaration has been made^ a check is made to see if it 
is tentative. If not^ a multiple declaration exists (which is illegal). 
If the declaration was tentative, a check is made to ensure that its 
usage was compatible with the type of declaration being made. All 
tentative declarations within the proper scope are resolved. 

An attribute node is made for the declaration. The definition is added 
to the dictionary attribute list and the address of the label is 
defined.. 

Errors Detected 

MULTIPLE DK:LARATI0N FOR • • — THIS DECLARATION USED. (56) 

USE OF • * HERE CONFLICTS WITH PREVIOUS USAGE. (57) 

Local Variables 

None 

Program Interface 

Entry Points 

$BLPRC. No formal parameters. This routine determines whether it 
is to define statement label, FORMAT statement label, or entry name 
by the value in $CLBLS. 

Exit Conditions 

Normal exit only. Register GO has pointer to attribute entry. 

Routines Called 

$FSYM Locate Identifier 

$GTRIAD Get Next Triad Entry 

$XERR Error Message Editor 

$WEXP Segment Management 

Global Variables 

$CLBLS Label Switch 

A List Dictionary Attribute List 

N List Dictionary Name List 

T Table Token Table 

I Table Initialization Table 

$CLPTR Label Pointer 

Logic Diagram 

Chart 29 shows the detailed logic diagram for the Label Processor routine. 
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TITLE: DCL GENERATOR C$DCLGN) 

Proqrcup Definition 

Purpose and Usage 

The DCL Generator directs the analysis and encoding of attributes for 
identifiers in a DECLARE statement , and adds the attribute entries 
to the dictionary attribute list (A list) upon completion of encoding • 
During this process, code is generated, if necessary, to allocate space 
for data and to construct dope vectors* 

Description 

The attributes explicitly declared for an identifier are maintained 
in a bit string, one bit assigned to each attribute. If an attribute 
has been specified, its bit is onej otherwise, the bit is zero. Before 
beginning any attribute analysis, the bit string where the attributes 
are accumulated is initialized to zeros. The Attribute Analysis routine 
($ABAL) is called to analyze the attributes immediately following the 
identifier. On return, any factored attributes are analyzed, one 
factoring level at a time. 

The DCL Generator keeps track of the factoring in effect by maintaining 
a push-"down list of pointers to the right parenthesis token starting 
the factoring level. When the right parenthesis is reached, its pointer 
is removed from the push-down list and the attributes following it 
are skipped. 

When all the attributes have been analyzed, a check is made to determine 
whether the identifier was previously declared or used in the current 
block. If so, and if it was not used only as a parameter specification, 
a flag is set to indicate possible multiple declaration or use before 
declaration. 

At this point, the Attribute Node Creation routine ($ANCRE) is called 
to translate the bit string and a table of pointers to option lists 
into a dictionary attribute list entry and the necessary code. The 
entry just creat,^ is added to the dictionary attribute list unless 
the error flag is set; if set, the new definition is checked for 
compatibility with the previous declaration. 

After an identifier has been completely encoded, translation of the 
next identifier in the token table begins. 

Errors Detected 

ERROR AT " •. (16) 

STRUCTURES NOT SUPPORTED — ' • IGNORED. (18) 

PREVIOUS DECLARATION OR USE OF • •. (21) 

Local Variables 

Push-down list kept in left parenthesis tokens in token table: 

DCPDL Push-Down List Head 

DCPTR Temporarily Saved Token Table Pointer 

DCERR Possible Error Flag 

DCDEF Check for Compatible Definitions 

Program Interface 

Entry Points 

$DCLGN. No formal parameters. 
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Exit Conditions 

Exit after translating all of DECLARE statement and reaching a 
semicolon token. 

Routines Called 



$ABAI, 
$ANCRE 
$FS1M 
$XERR 



Attribute Analysis 
Attribute Node Creation 
Locate Identifier 
Error Message Editor 



Global Variables 

$PTR 
T Table 
A List 
N List 
$CBKNO 
$DCHME 
$APARM 

Logic Diagrain 



Token Table Pointer 

Token Table 

Dictionary Attribute List 

Dictionary Name List 

Current Block Number 

Name of Current Identifier 

switch Determining Whether Identifier is Parameter 



Chart 30 shows the detailed logic diagram for the DCL Generator 
routine* 
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TITLE: LOCATE IDENTIFIER ($FSYM> 

Program Definition 

Purpose and Usage 

Locate Identifier finds the definition of an identifier that occurs 
within a block with a block number greater than that one specified* 

Description 

The dictionary attribute list for a given name entry is searched until 
a definition is found which had last usage or declaration with a block 
number greater than or equal to the block niimber specified for the 
search. This determines whether the identifier has been declared or 
used in the block or in a block which is internal to the indicated 
block. If one or more definitions is found, the one with the greatest 
block number is returned along with a success indication. If none 
is found, a failure is reported.. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$FSYM. No formal parameters. Needs pointer to a token table identifier 
entry in G7 and block number specifying where the declaration must 
be in G6. 

Exit Conditions 

Normal exit only. Returns a success indicator and, if successful, 
a pointer to the dictionary attribute list entry in GO. 

Routines Called 

$CERR Compiler Error 

Global Variables 

T Table Token Table 

A List Dictionary Attribute List 

N List Dictionary Name List 

Logic Diagram 

Chart 31 shows the detailed logic diagram for the Locate Identifier 
routine. 
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TITLE: LOCATE VARIABLE ($FVAR) 

Program Definition 

Purpose and Usage 

Locate Variable is used to locate the current definition of a variable 
and, if none^ to create a definition. 

Description 

If the input consists of a pointer to a dictionary name list entry ^ 
the dictionary attribute list for that name is searched for the current 
definition. If an arithmetic identifier is being sought, the search 
encompasses all blocks. If a label identifier is being sought, only 
the current block is searched. If the definition found is of type 
label, the mode of search is set to label for use by ftirther searches. 

If a definition is not found, a definition is created depending on 
the mode of search and the contents of the token table. The results 
for the various modes of search are as follows: 

label - a tentative statement-label declaration is made 
in the current block. 

file - a file declaration is made in the outermost block 
(as well as an external declaration). 

arithmetic - if the token following the identifier in the token 
table is a left parenthesis, an entry name is 
declared; if it is not, an implicit variable 
declaration is made. 

entry name - a check is made to determine whether a block adcon 
area (BAA) must be allocated. 

Any created declaration is added to the dictionary name list and the 
pointer to the definition returned. 

If a previously used declaration is returned, no check is made to 
insure that it meets the requested mode. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$FVAR. No formal parameters. Requires a pointer to a token table 
entry in G3. 

Exit Conditions 

Normal exit only. Returns a pointer to a dictionary attribute list 
entry in G5- 

Routines Called 

$WEXP Segment Management 



Global Variables 

T Table Token Table 

A List Dictionary Attribute List 

N List Dictionary Name List 

$NIDS1 Identifier Search Indicator 

Logic Diagram 

Chart 32 shows the detailed logic diagram for the Locate Variable routine. 
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PART 4 LOGIC DIAGRMIS 

The detailed logic diagrams for the CALL/36(HOS PI,/I declaration- 
processing routines follow. 
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* DOWN LIST * 
*************** 
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♦ * 
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*************** 



****itt********** 



**»****m******* 

* * 

* * 
♦NPARM = NPARM^ 

* +1 * 

* « 
**nn,ti********#* 



*************** 

♦ ♦ 
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♦ AND RETURN ♦ 

♦ TYPE ♦ 

♦ * 
************#** 



* <>N0 *** 

* * * 
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********** 
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♦SLOT OF ENTRY^ 

* NODE ICONTI ♦ 
*************** 



*************** 

* * 
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* ♦ 
*************** 



*************** 
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♦ LIST ♦ 
*************** 



* 


* * 


HIS TOKEN 


*X C6^ 


• ) •? ♦ 


* * 


* 


*** 


* « 




* * 


*** 


♦ YES 


* * 




Ti* B7 + 




* °* 




*** 
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*************** 
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*************** 
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♦ ♦ ♦ ENTRY NODE ♦ 
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*************** 
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* 
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* 
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* 
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* 


♦♦♦ 


* 






* 
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^X 







*************** 
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♦ ♦ 

♦ ♦YES ♦♦♦♦ 

♦ ♦ ♦ * 
AT COMMA OR ♦X A2 ♦ 

♦ RIGHT PAREN? * * l* 

♦ * **** 



*************** 



♦SKIP TO COMMAS 

♦ OR RIGHT ♦ 

♦ PAREN ♦ 

♦ * 
*************** 



AN470 V 
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*************** 




* * 


♦♦♦ 


♦ CREATE NULL ♦ 


* * 


.X* PARAMETER ♦. . 


.X DO* 


* NODE ♦ 


♦ ♦ 


♦ * 


*** 



*************** 



*************** 
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*************** 



*************** 

♦ * 

♦ SAY ♦ 
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♦ VAR I ABLE ♦ 
*************** 



*************** 

♦ * 
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♦ STORE LOWER * 

♦ SOUND INTO ♦ 
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*************** 



*************** 



*A4^..X^M0VE TO COMMA* X* 



*********** 



*************** 

RETURN 
*************** 



*♦ * ♦ 

♦ ♦ ♦ PUT LOWER ♦ 
♦C4*. .X^ BOUND VALUE ♦ 

♦ ♦ ♦INTO SKELETON^ 
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*************** 



*************** 

♦ ALL * 
♦CONSTANTS=NO ♦ 

♦ SET BIT FOR ♦ 

♦ THIS ♦ 
♦DIMENSION OFF* 
*************** 



*************** 



*************** 



*************** 

RETURN 
*************** 
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♦ ** ♦ ♦ 
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***♦ 
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IS BLOCK 
DECLARED 
CURRENT ? 



BL023 

* ♦ 

♦ X C4* 

* ♦ 



CALL RESET 



8L023 V 
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* * » ♦ 

.♦C^*..X*IMPROPER PREV* 

♦ * * USAGE #57 * 
♦♦ * ♦ 

^ti^^t.*** ******* *i 



Bl n33 V 

4^*******di,,tL**if*^ 

*** * DEFINE * 

♦ * *ADORESS FO"^ T* 

♦ OA ..X* TABLE OR '• 

♦ * * ATTRIBUTE » 
*** * ENT»Y * 

<tr «- 4r 4< « 4r 4c* 4r -jc ^ ^ « ^ f- 



* ^VES ♦** 

* DECLARATION * ♦ * 
TENTATIVE OR ♦X CO* 
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*************** 
♦ERROR ♦ 



♦ MULT D€C #56*... X C5* 



*************** 



*************** 



*************** 



*************** 



♦ COMBINE *. 

* D£1=INITI0NS * 



*************** 



** 



**** 



REMOVE 
♦C5*..X* PREVIOUS ♦...X 
* ♦ ♦ OECIAPATION * * _ 
** ♦ * **** 

*************** 



i.' 



* MAKE *• 
.X* rjfFINinOM » 

* EXPL-ICfT * 

* » 

*^***t**1li,**t<t:^ 



RETURN 

******* **<t,*i^1,i:^ 
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PTR ->TOKEN 
IDENTIFIER ? 
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♦ERROR ♦ 
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STRUCTURES 

NUT 
IMPLEMENTED 
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♦MOVE TO NEXT ♦ 
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♦ ♦ 
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*0F PUSH DOWN * 
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* ♦ 
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4f:tc:f ************* 

* * 
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« — 
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♦ERROR * 
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♦ FOLLOWING » 

♦ NOTE * 
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**« 
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DECLARATION ..X C« ^ 

SKIPPING #16 « *' 



CUMPATIBLfc 
OtCLAKATION? 



0C090 
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♦ERROR * 



m******4i*ti:***^** 



4c4<4c4c4'4c4'4(4!4c4c<c*«<' 



♦ DELETE OLD 

* DEFINITION 



4c « 4c 4^ 4c « « 41 ^c 41 « 4c 4c :»: 4t 



ILLEGAL 
TOKEN #16 



4c**4:4'4c«4c4(4c4'4<4c4c4c 



PTP ->TOKEN 

•;• ? 



4c«4e4c4c*4t**«4c**#!. 

* 

.X* RFTUPN 

4c 

4c4c4c4c4f**4=4c««**** 



♦ ♦ 


DCO 


4t * 




♦ NO 


4c4r4c4. 


* 


« 


PT^? ->TOKBiM 


*X Ah 
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♦ 1 


4c 


4c 4c** 



♦ADD ATTRIBUTE^ 
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* * 

*J«C******«****V* 



*************** 
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* DOWN LIST * 



***;;:*** *4c****** 



*************** 
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Chart 31 • Locate Identifier 
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4c****4c*******4'* 



♦ SET LAST * 
.X*bLOCK USED 6 ♦ 
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Chart 32. Locate Variable (Page 2 of 3) 
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♦COUNT - $DBUF+ 
4c * 
*4c4--4c4cv«*«*=;c«4c4c4c 



4c 4c 4c * 4c 4c 4c 4« 4c 4c 4c 4c 4c 4c 4c 

♦ 4c 

♦ CREATE ON ♦ 
♦INITIALIZATN ♦ 

♦ tNTRY IN I ♦ 
♦TABLE (COMT) ♦ 
4c **4c4c** 4c4c4c4!4c4c=;c * 



4c 4c 4c 4c 4c 4= 4c 4c 4c 4c 4c 4c 4c 4c 4c 





>^V237 V 

4c4c**4c***4c*4t'^*4c* 


rv 


4c** 


♦ * 


*** 


* 4c 

* D5 , 

* 4c 


* SET UP ♦ 
.X* RFTURN"^ *. 

* ATTPTRMTF * 

* * 


* 

.X b 
4c 

*** 



FV15 
«*♦* 



♦FOP FILE NAME+...X B6 ♦ 
♦ AND CODES 4c 4c 2* 
4c 4c **** 

-jc *4c * * 4c* * 4t4c * *4c4c * 



^V230 

***♦«*** 4c 4t*4c 4c** 

* * *** 

* OBTAIN * * * 
.X^ ATTRIBUTE ♦...X DO* 

* ENTRY * * * 
« * *** 
*************** 



Chart 32. Locate Variable (Page 3 of 3) 
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PART 5 - I/O STATEMENT PROCESSING 

The routines described in this subsection process the OPEN^ CLOSE ^ 
GET, PUT, and FORMAT statements • These routines are discussed in 
alphabetic order according to their mnemonics, as shown below. Detailed 
logic diagrams for the routines appear at the end of the subsection. 

GET Generator ($BGET) 

PUT Generator ($BPUT) 

Data Specification ($DDS) 

I/O Specification ($DIOS) 

O/C Specification ($DOCS) 

Format List Generator ($FLG) 

FORMAT Generator ($FBfr) 

Format Item C$FORI, $FORI2> 

Format in Data List Processor C$FPDL) 

OPEN/CLOSE Generator C$OPEN, $CLOSE) 
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TITLE: GET GENERATOR ($BGET) 
Program Definition 
Purpose and Usage 

The GET Generator analyzes a GET statement and directs the generation 
of triads for the statement- 
Description 

This routine directs the identification of the options in a GET 
statement y namely ^ the file and data specification options. The I/O 
Specification routine ($DIOS) scans the statement looking for the 
keywords FILE, DATA, EDIT, LIST, and SKIP, Pointers (the file, data 
specification, and skip pointers) are set to indicate the location 
in the token table of the corresponding keywords. 

Upon return from I/O Specification, a check is performed to see if 
the file option was present. If not, the default file of SYS IN is 
provided. 

If the type of input is DATA, GET Generator proceeds to generate a 
symbol table triad for the data list, if one is present. If no data 
list is present, a marker is placed in the block information table 
so that a symbol table for the block will be generated at epilogue 
time. A triad is generated to perform a call to the Data-Directed 
Input routine (IHEDDIB). (For a description of the symbol table, see 
Appendix E. ) 

If the type of input is LIST or EDIT, triads are generated to call 
the List- or Edit-Directed GET Initiation and Termination routine 
(IHEIOAA) to initialize the operation. A switch indicating the type 
of I/O statement is set and the Data Specification routine ($DDS) is 
called to process the data list. On return, if the type of input is 
EDIT, the Format in Data List Processor routine ($FPDL) is called to 
process the format list. A triad is then generated to call IHEIOAT 
to terminate the operation. 

Errors Detected 

ERROR AT • •. (16) 

FILE NAME NOT INPUT FILE. (31) 

ILLEGAL USE OF ' ' IN DATA INPUT LIST. (33) 

•SKIP" OPTION ILLEGAL HERE. (34) 
ILLEGAL FILE DESIGNATION. («*3) 

Local Variables 

BGNAME Default Filename or FOB Address 

BGPTR Token Table Pointer to Semicolon 

BGSYM Symbol Table Triad Pointer 

Program Interface 

Entry Points 

$BGET. No formal parameters, but requires; a pointer to token 
table ($PTR) . 

Exit Conditions 

Normal exit after translation. $PTR points to semicolon. 
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Routines Called 




$DIOS 


I/O Specification 


$CERR 


Compiler Error 


$FVAR 


Locate Variable 


$DDS 


Data Specification 


$FPDL 


Format in Data List Processor 


$GTRIAD 


Get Next Triad Entry 


$FIND 


Search-Insert 


$XERR 


Error Message Editor 


Global Variables 




$PTR 


Token Table Pointer 


$DSKIP 


Skip Specification Pointer 


$DFILE 


File Specification Pointer 


$DDATA 


Data Specification Pointer 


A List 


Dictionary Attribute List 


N List 


Dictionary Name List 


T Table 


Token Table 


$BIOTy 


I/O Statement Type Indicator 


$FCB 


File Attribute Entry Pointer 


Loqic Diaqrasn 





Chart 33 shows the detailed logic diagram for the GET Generator routine. 
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TITLE: PUT GENERATOR ($BPOT) 

Program Definition 

Purpose and Usage 

The PUT Generator analyzes a PUT stat^nent and directs the generation 
of triads for the statement. 

Description 

This routine directs the identification of the location of the options 
in a PUT statement^ namely^ the file^ skip, and data specification 
options. The I/O Specification routine ($DIOS) scans the statement 
looking for the keywords FILE, DATA, EDIT, LIST, and SKIP. Pointers 
(the file, data specification, and skip pointers) are set to indicate 
the location in the token table of the corresponding keywords. 

Upon return from I/O Specification, a check is performed to see if 
the file option was present. If not, the default file of SYSPRINT 
is provided. 

Triads are generated to call the Output Initialization with or without 
Skipping library routine CIHEIOBA or IHEIOBC) to initialize the 
operation without or with a skip respectively. A switch indicating 
the type of I/O statement is set and the Data Specification routine 
($DDS) is called to process the data list. On return, if the type 
of output is EDIT, the Format in Data List Processor routine ($FPDL) 
is called to process the format list. If the output type is DATA^ 
the triad is then generated to call the Data-Directed Output library 
routine (IHEDDOC) to terminate the operation. 

Errors Detected 

ERROR AT • • . (16) 

ILLEGAL FILE DESIGNATION. («»3) 

FILE NAME NOT OUTPUT FILE. (49) 

NON-PRINT FILE — 'SKIP' OPTION ILLEGAL. (50) 

LIST MISSING AFTER " '. (71) 

Local Variables 

BPPTR Pointer to Semicolon Token 

BPNME Default Filename or FOB Address 

BPFIB FIB Around Symbol Table 

Program Interface 

Entry Points 

$BPUT. No formal parameters, but requires a pointer to token 
table ($PTR). 

Exit Conditions 

Normal exit after translation; $PTR points to semicolon. 
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Routines Called 

$NEXP 

$DIOS 

$FVAR 

$DDS 

$FPDL 

$GTRIAD 

$FIND 

$NCONS 

$AREXP 

$XERR 

Global Variables 

$PTR 
$DSKIP 
$DFILE 
$DDATA 
N List 
A List 
T Table 
$BIOTY 
$FCB 



Expression Processor Controller 

I/O Specif iction 

Locate Variable 

Data Specification 

Format in Data List Processor 

Get Next Triad Entry 

Search- Insert 

Constant Processor 

Array Expression Error 

Error Message Editor 



Token Table Pointer 

Skip Specification Pointer 

File Specification Pointer 

Data Specification Pointer 

Dictionary Name List 

Dictionary Attribute List 

Token Table 

I/O Statement Type Indicator 

File Attribute Entry Pointer 



Logic Diagram 

Chart 34 shows the detailed logic diagram for the PUT Generator routine. 



17a 



TITLE: DATA SPECIFICATION ($DDS) 

Program Definition 

Purpose and Usage 

This routine generates and directs the generation of triads to perform 
the operations required by the data list in an I/O statement. 

Description 

If an element in the data list is an expression that does not begin 
with a left parenthesis ^ the Expression Processor Controller is called 
to evaluate the expression. If the expression is an array expression, 
code is generated for it as though it were a repetitive specification 
from lower bounds to upper bounds by the Expander routine. Otherwise, 
a check is made to see if it is a legal expression type (e.g., not label). 

If a left parenthesis is the first token in an element, whether the 
element is an expression enclosed in parentheses or a repetitive 
specification cannot be immediately determined. This question is 
resolved through a scan that provides a pointer to a comma if the left 
parenthesis began an expression, or to the token DO if the element 
is a repetitive specification. 

If the element is a repetitive specification, the DO Generator is 
called to generate triads for the DO specification. The specification 
is then reanalyzed starting immediately from the right of the left 
parenthesis that began the repetitive specification. When the DO 
specification is reached again, an END statement is generated and the 
END Generator is called. 

If the statement is PUT DATA, items within the expression are scanned 
and a symbol table entry is formed for each unsubscripted or subscripted 
scalar (Appendix E shows symbol table entry format). All contiguous 
unsubscripted scalar s are entered into the same symbol table while 
a separate symbol table is constructed for each subscripted scalar. 

Each symbol table is preceded by a call to the Data-Directed Output 
library routine (IHEDDOA for unsubscripted scalar s or IHEDDOB for 
subscripted scalars) followed by a branch around the symbol table. 
The triads generated for one or more contiguous unsubscripted scalars are: 

Call of library routine IHEDDOA 
FIB (Forward Internal Branch) 
Symbol table entry 1 



Symbol table entry n 

RFIB (Resolve Forward Internal Branch) 

Note that a symbol table consists of a series of entries in generated 
code and is not a compiler-time table. 

The triads generated for a subscripted scalar are: 

Call of library routine IHEDDOB 
FIB (Forward Internal Branch) 
Symbol table entry 1 



Symbol table entry n 

RFIB (Resolve Forward Internal Branch) 
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For other types of statements, instructions are generated to set up 
the FCB for the operation. If the operation is EDIT, a branch and 
link to a format subroutine is generated. This subroutine is generated 
by the FORMAT Generator when it processes the FORMAT statement. If 
the operation is LIST, a call to the List- and Data- Directed Input 
library routine (IHELDIA) or the List-Directed Output library routine 
(IHELDOB) is generated. If the operation is GET, the expression is 
checked for consisting of only a scalcur before the code is generated. 

Any expansions and any implied DO"s are ended. When the right 
parenthesis of the data list is reached, a return is made. 

Errors Detected 

ERROR AT • •. (16) 

ILLEGAL I/O EXPRESSION—SKIPPING TO ' •. (75) 

ILC-EGAL DATA OUTPUT ITEM. (76) 

EXPRESSION ILLEGAL IN 'GET' DATA LIST. (77) 

Local Variables 

DDFIB Branch Around Symbol Table 

DDDATA Data List Type Switch for PUT DATA 

DDARRY Array Switch 

DDSYM Symbol Table Address 

Program Interface 

Entry Points 

$DDS. Needs data specification pointer ($DDATA) and statement type 
indicator ($BIOTY)j no formal parameters. 

Exit Conditions 

Normal exit only. 

Routines Called 

$FVAR Locate Variable 

$NEXP Expression Processor Controller 

$EXPND Expander 

$DOG DO Generator 

$EDGN END Generator 

$EYPND END Expand 

$GTRIAD Get Next Triad Entry 

$SCDV String Constant Dope Vector Initializer 

$NCONS Constant Processor 

$WCTCT Segment Management 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$DDATA Data Specification Pointer 

$BIOTY Statement Type Indicator 

$FCBAD FCB Base Address 

Logic Diagram 

Chart 35 shows the detailed logic diagram for the Data Specification 
routine . 
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TITLE: I/O SPECIFICATION ($DIOS) 

Program Definition 

Purpose and Usage 

The I/O Specification routine is used by the GET Generator or PUT 
Generator to scan a statement and locate the file^ skip^ and data list 
sections of the statement. 

Description 

Each section of a GET or PUT statement consists of a keyword followed 
by tokens enclosed in parentheses. The SKIP and DATA keywords do not 
require parenthesized tokens ^ and the EDIT keyword requires two sets 
of parenthesized tokens. 

This routine checks each keyword for the proper ntimber of parenthesized 
tokens following it. No checking is performed on the tokens between 
the parentheses. 

Three pointers can be set by this routine: $DFILEr $DDATA^ and $DSKIP. 
$DFILE is set to point to the FILE token; $DSKIP is set to point to 
the SKIP token; and $DDATA is set to point to the EDITr LIST^ or DATA 
token. 

Errors Detected 

ERROR AT • • . (16) 

DUPLICATE • • DESIGNATION — LAST USED. (70) 

LIST MISSING AFTER * '. (71) 

DATA AND FORMAT LIST MISSING. (73) 
FORMAT LIST MISSING. (7^) 

Local Variables 

DIERR Error Switch (0 = OFF) 

Program Interface 

Entry Points 

$DIOS. No formal parameter but expects $PTR to point to token at which 
to begin scan. 

Exit condition 

Normal exit. $PTR points to semicolon. 

Routines Called 

None 

Global Variables 

T Table Token Table 

§PTR Token Table Pointer 

$DSKIP Skip Specification Pointer 

$DDATA Data Specification Pointer 

$DFILE File Specification Pointer 

Logic Diagram 

Chart 36 shows the detaile<3 logic diagram for the I/O Specification routine. 
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TITLE; 0/C SPECIFICATION ($DOCS) 

Proqrant Definition 

Purpose and Usage 

The 0/C Specification routine is used by the OPEN/CLOSE Generator to 
scan a statement and locate the file, title ^ and input/output attribute 
sections of the statement. 

Description 

Each section of an OPEN or CLOSE statenent consists of a keyword 
followed by tokens enclosed in parentheses (except for INPUT and OUTPUT 
keywords) • 

This routine checks each keyword for the proper number of parenthesized 
tokens following it. No checking is performed on the tokens between 
the parentheses* 

Three pointers, which point to the file list, title list, and input 
or output token^ are set by this routine. If a token in a particular 
category was not present, the pointer is null* 

h flag is set if more than one option group is present in the statement 
(that is^ for a multiple OPEN or CLOSE) . This will inform the calling 
routine to return after processing the current option group. 

Errors Detected 

ERROR AT ' ' • (16) 

DUPLICATE "' ' ' DESIGNATION — LAST USED- (70) 

LIST MISSING AFTER ' *. (71) 

Local Variables 

DERR Error Switch (0 = OFF) 

Proqrair Interface 

Entry Points 

$DOCS. No formal parameters but expects $PTR to point to token at 
which to begin scan. 

Exit Conditions 

Normal exit. $PTR points to either semicolon or comma. 

Routines Called 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

$DFILE2 File Token Pointer 

$DTITLE Title Token Pointer 

$DINOUT Input/Output Token Pointer 

$DOPT Option Group Flag 

Logic Diagram 

Chart 37 shows the detailed logic diagram for the O/C Specification routine - 
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TITLE: FORMAT LIST GENERATOR ($FLG) 

Program Definition 

Purpose and Usage 

The Format List Generator performs the syntax analysis and code 
generation for a format list. 

Description 

Because the code generated for a FORMAT statement may call the code 
generated for other FORMAT statements ^ it is necessary to ensure that 
any temporary results obtained for replication factors use locations 
that cannot be changed during the execution of another format or 
calculation of data list elements. Therefore^ another level of 
temporary storage definitions is created during the processing of the 
format list. 

Each format specification (except A without a length) creates a format 
element descriptor (FED) . Each descriptor is one word long and contains 
a halfword integer value followed by two one-byte values. These three 
values are obtained from the expressions within a specification. This 
routine generates code to place the address of the FED in the file 
control block (FOB) and to branch to the proper librairy routine. A 
complex format specification consists of two E and/or F format 
specifications. Besides putting the addresses of each of the FED's 
in the FCB^ the type (E or F) is also placed in the FCB. Thus the 
library receives only one call for a complex data item. 

Since the code generated for format lists is driven by the code 
generated for data lists ^ the format list code must return to the data 
list after performing each data specification and, in this process , 
tell the data list code where to continue in the format list. This 
address and the FCB address are kept in the format adcon area ($FORAD). 

If a remote format is referenced, three addresses must be passed to 
$ FOR AD: 

1. Address of FCB 

2. Return address to format list 

3. Return address to data list 

To resolve extent of replications^ a variable called FLSWT is used 
to specify n item forms, and a variable called FLPLEV (parenthesis 
level) is used to specify n format-list forms. Figure 3-3 shows an 
expansion of a format list into code. 
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Format List = (F(3),(2*N) A(10), 5(F(3), SKIP, 3 E(10,3))) 


Code Generated 


Spec F (3) 




Change FMT address and return 


«2 


DO-loop for 2*N 




Spec A( 10) 




Change FMT address and return 




Branch to a 2 


«4 


DO-loop for 5 




Spec F (3) 




Change FMT address and return 




Spec SKIP 
3 


^6 


DO-loop for 3 




Spec E( 10,3) 




Change FMT address and return 




Branch to a^ 




Branch to a^ 



Figure 3-3. Format List Generation Example 



Errors Detected 

ERROR AT • •• (16) 

ILLEGAL USE OF • •• (29) 

ITERATION FACTOR NOT PARENTHESIZED. (78) 

• • ILLEGAL FORMAT ITEM — SKIPPING TO ' 

• • INCOMPLETE FORMAT ITEM — SKIPPING TO * *. 

ILLEGAL COMPLEX FORMAT ITEM — SKIPPING TO • " • 

■ • NOT FORMAT LABEL — SKIPPING TO ' •. (82) 



(79) 
•. (80) 
\ (81) 



DO Level 
Replication Switch 



Local Variables 

FLPLEV 
FLSWT 

Program Interface 

Entry Points 

$FLG- No formal parameters. Expects $PTR to point to left 
parenthesis of format list. 

Exit Conditions 

Normal exit only. $PTR points to right parenthesis of format list* 
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Routines Called 

$DEXP DO^Loop Triad Builder 

$£DGN END Generator 

$NEXP Expression Processor Controller 

$FORI Format Item 

$FVAR Locate Variable 

$GTRIAD Get Next Triad Entry 

$NCONS Constant Processor 

$XERR Error Message Editor 

$AREXP Array Expression Error 

$WEXP Segment Management 

Global Variables 

T Table Token Table 

$FED Dinnmy FED 

$PTR Token Table Pointer 

$FCBAD FCB Base Address 

$FORAD Format Adcon Area 

Logic Diagram 

Chart 38 shows the detailed logic diagram for the Format List Generator 
routine. 
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TITLE: FORMAT GENERATOR ($FMT) 

Program Definition 

Purpose and Osage 

The FORMAT Generator directs translation of a FORMAT statement into 
triads. It also generates the triads necessary to take the FORMAT 
statement out of the normal flow of control. 

Description 

Because this statement may be referenced during execution of other 
statements (GET, PUT, and FORMAT), temporaries used in the statement 
may not be used by any other statements. 

The first instructions generated perform a branch to the statement 
which follows. Next the label on the FORMAT statement is defined and 
the location from which the format was entered is saved. After 
completion of the format, a return is made to this location. 

Errors Detected 

ERROR AT • •, (16) 

UNLABELED FORMAT STATEMENT, (30) 

Local Variables 

FMTFIB Branch Around Format Triad Pointer 

Program Interface 

Entry Points 

$FMT. Expects $PTR to point to token following the FORMAT statement. 

Exit Conditions 

Normal exit only, $PTR points to semicolon. 

Routines Called 

$BLPRC Label Processor 

$FLG Formal List Generator 

$GTRIAD Get Next Triad Entry 

$TCODE Triad Code Generator 

$XERR Error Message Editor 

Global Variables 

T Table Token Table 

$PTR Token Table Pointer 

$CLBLS Label Switch 

$FORAD Format Adcon Area 

Comments 

No checking is done at compile or execution time to insure that formats 
are not used recursively. 

Logic Diagram 

Chart 39 shows the detailed logic diagram for the FORMAT Generator 
routine. 
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TITLE: FORMAT ITEM ($FORI^ $FORI2) 

Program Definition 

Purpose and Usage 

The Format Item routine is used by the Format List Generator to analyze 
and generate any code necessary for expressions in a format 
specification. It creates an FED and returns the address of the FED. 

Description 

Expressions in the parentheses following the format type specification 
are evaluated. If constants^ the value is placed in a dummy FED. 
If expressions y space in the object program is obtained for an FED 
and the value is stored in the FED space. (The FED space is initialized 
with any constant values.) If all expressions are constants , the FED 
is defined as a constant. 

If the type specification is not E or F, there can be only one 
expression. If the type is F^ there can be up to three expressions. 
Any expressions not present are set to zero. An E specification may 
contain either two or three expressions. If only two are present ^ 
the third is set to the value of the second plus one. 

Errors Detected 

ERROR AT • • . (16) 

FORMAT ITEM HAS INCORRECT NO. OF FIELDS. (83) 

Local Variables: None 

Program Interface 

Entry Points 

$FORI. No formal parameters. Expects pointer to left parenthesis 
of specification in G2 and type of format in 04 . 

$ FORI 2. No formal parameters. Defines only a constant FED. 

Exit Conditions 

Normal exit. G2 points to token following right parenthesis of 
specification. 

Normal exit. G2 not touched. 

Routines Called 

$NEXP Expression Processor Controller 

$NCONS Constant Processor 

$GTRIAD Get Next Triad Entry 

$AREXP Array Expression Error 

$XERR Error Message Editor 

$WEXP Segment Management 

Global Variables 

T Table Token Table 

$FED Dummy FED 

$FEDC FED Constant Flag 

$FEDNM Number of FED Fields 

Logic Diagram : See Chart 40. 
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TITLE: FORMAT IN DATA LIST PRCXTESSOR ($FPDL) 

Program Definition 

Purpose and Usage 

The Format in Data List Processor is used by the GET Generator or PUT 
Generator to process a format list for edit-directed I/O, 

Description 

This routine advances the token pointer passed to the left parenthesis 
of the format list. A branch around the format is generated^ and the 
address of the format is defined. After the format is translated by 
the Format List Generator ($FLG), this routine directs the generation 
of code necessary to branch back to the beginning of the format. 

If the last format item was a data type specification^ two triads 
loading the adcon registers are removed. A branch to the beginning 
of the format is generated. Otherwise^ the return address register 
and FCB register must be loaded before branching back to the beginning 
of the format. 

After the format is completed^ the branch around the format is resolved ^ 
and the address of the format is saved. 

Errors Detected 

None 

Local Variables 

FPBRNH Branch Around Format Triad Pointer 

Program Interface 

Entry Points 

$FPDL. Register G2 has pointer to left parenthesis of data list in 
I/O statement. 

Exit Conditions 

Normal exit is to four bytes after call. 

Exit immediately after call if no data list is present. 

Routines Called 

$FLG Format List Generator 

$GTRIAD Get Next Triad Entry 

$TCODE Triad Code Generator 

$WCTCT Segment Management 

Global Variables 

T Table Token Table 

Logic Diagram 

Chart «»1 shows the detailed logic diagram for the Format in Data List 
Processor routine. 



180 



TITLE: OPEN/CLOSE GENERATOR ($OPEN, $CLOSE) 

Program Definit:ion 

Purpose and Usage 

The OPEN/CLOSE Generator analyzes an OPEN or CLOSE statement and directs 
the generation of triads for the statement. 

Description 

This routine directs the identification of the location of the options 
in an OPEN or CLOSE statement^ namely ^ the file, input/output ^ and 
title options. The 0/C Specification routine scans the statement 
looking for the keywords FILE^ INPUT, OUTPUT, and TITLE. Pointers (the 
file, input/output, and title pointers) are set to indicate the location 
of the token list of the corresponding keywords. 

Upon return from 0/C Specification, a check is made to see if the file 
option was present. If not, an error condition exists. Triads are 
generated to load the address of the file control interface block. 
For CLOSE, a triad is generated to call the Close routine (IHECLOSE) . 

For the OPEN statement, triads are generated to test the OPEN/mode 
flag in the FCIB and, if open, branch around the rest of the code that 
will be generated for the OPEN statement. 

If the input/output pointer is active, a triad is generated to set 
the appropriate file code bit in the FCIB.. An error condition is 
detected if the INPUT or OUTPUT specification in the OPEN statement 
conflicts with that of a previous usage. 

If the title pointer is null, an initialization entry is created that 
will use the filename for the title. If the title pointer is active, 
the Expression Processor Controller is called to evaluate the title. 
A dummy attribute for the title is created that has the address of 
the FCIB and target attributes of string and is eleven characters in 
length. 

The Expression Processor Controller generates triads that move the 
eleven-character title to the FCIB. A triad to call the Open routine 
CIHEOPEN) is generated. For both OPEN and CLOSE, another option group 
can exist (that is, more than one file can be opened or closed). In 
this case, the entire process is repeated for the next group. 

Errors Detected 

ERROR AT • • . (16) 

FILE NAME MISSING. (40) 

• ■ NOT FILE NAME. (41) 

ILLEGAL FILE DESIGNATION. (43) 

USE OF \ • HERE CONFLICTS WITH PREVIOUS USAGE. (57) 

ILLEGAL TITLE DESIGNATION. (110) 

Local Variables 

OPSW OPEN/CLOSE Switch 

OPPTR Save Area for $PTR 

OPTKN Dummy Token Area for Title 

OPTITL Title Switch 
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ProqreuD Interface 

Entry Points 

$OPEN. No formal parameters. Requires a pointer to token table ($PTRK 

$CLOSE. No formal parameters. Requires a pointer to token table ($PTR) 

Exit Conditions 

Normal exit only. $PTR points to semicolon. 

Routines Called 



O/C Specification 

Locate Variable 

Expression Processor Controller 

Get Next Triad Entry 

Triad Code Generator 

Array Expression Error 

Error Message Editor 



$DOCS 

$FVAR 

$NEXP 

$GTRIAD 

$TCODE 

$AREXP 

$XERR 

Global Variables 

$PTR 
$DFILE2 
$DINOUT 
$DTITLE 
$DOPT 
T Table 
$TITLE 
I Table 
A List 

Logic Diagram 

Chart 42 shows the detailed logic diagram for the OPEN/CLOSE Generator 
routine. 



Token Table Pointer 
File Token Locator 
Input/Output Token Locator 
Title Token Locator 
Option Group Flag 
Token Table 

Dummy Title Attribute Entry 
Initialization Table 
Dictionary Attribute List 
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PART 5 LOGIC DIAGRAMS 

The detailed logic diagrams for the routines that process GET^ ^UT. 
OPEN^ CLOSE, and FORMAT statements follow. 



PL/I SYSTEMS MANUAL 
(8 GET 



$BGET 
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«i«i«i«>««4iMi«r*«4i** 



**«««««*M>*4>*«<lt 



TYPE « OUTPUT ♦ 
• OR NOT FILE 7 * 
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•*«**4i«*«*4t*«#9 



TYPE « IHFUT 



•GENERATE CALL* 
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•PASS ADDRESS * 
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= FIXED 
INTEGER 

* CONSTANT? ♦ 



FL053 V 

*************** 

♦GENER78 * 



*************** 



********4i****** 

* * 

♦GENERATE SAVE^ 
♦RETURN ♦ FCB ♦ 
♦ADDRESS USING^ 

* SFORAD ♦ 
*************** 



FL035 

♦YES ***♦ 
♦ ♦ ♦ 
♦ X AC ♦ 
♦ 2* 
**** 



ITER FCTR NOT 

ENCLOSED IN 

PARENS 



*************** 



V 




FLOK 




** 








♦ ♦♦ 


PTR=PTR+1 




♦ ♦ 


PLEV=0 




.X 80^ 


SWT=FALSE 




* * 






*** 



*************** 



♦YES *♦* 
♦ ♦ ♦ 
♦ X A7+ 
♦ ♦ 
♦ ♦♦ 



FL028 

*************** 

♦GENER78 ♦ 

* * 

♦ NO PARENS ♦ 



*************** 



*******u****** 

♦ »NEXP ♦ 


FL060 
*♦♦ 


* * 




* EVAL AS FXD ♦.. 

♦ INT ♦ 


.X C6^ 

♦ * 



************** 



FL060 

♦♦♦♦♦*♦*♦*♦♦♦♦♦ 

♦ ♦♦ ♦ * 

♦ ♦ * GENERATE DO * 
*C6 ..X* STATEMENT * 

♦ * ♦ USING $00G2 * 
♦*♦ ♦ ♦ 

*************** 



FL0I7 

♦YES ♦♦♦ 
♦ * ♦ 
♦ X B9^ 

♦ ♦ 

♦ ♦♦ 



6? 


* * 




FL220 


♦ 


* 






* 




♦ YES 


♦ ♦♦♦ 


PTR 


->TOKEN 




♦ ♦ 


FORMAT SPEC 




♦ X BO ♦ 




CODE? 


♦ 


♦ 2* 


♦ 




♦ 


♦ ♦♦♦ 



BRANCH IF 

TOKEN TYPE = 

OTHER 



*************** 

♦ * 
♦SKIP TO COMMAS 

X^ OR RIGHT ♦ 

♦ PAREN ♦ 

♦ ♦ 
*************** 



FL017 

*************** 
** ♦6ENER16 * 

* * * * 

♦B9*..X*ERR0R AT •_• ♦. 



*************** 



*************** 

* * 

* * 
♦INCREASE PUSH* 

* DOWN LEVEL ♦ 

i************** 



*************** 



.X B3 ♦ 
* 5* 
♦♦♦♦ 



FLOIO 
♦♦♦ 



♦MOVE TO NEXT *,,. ,X BO* 
*• TOKEN ♦ ♦ ♦ 
* ♦ *** 

*************** 



*************** 

♦ * 
♦SKIP TO COMMAS 

♦ AT RIGHT ♦ 

♦ PAREN ♦ 

♦ ♦ 
*************** 



♦ ILLEGAL ♦...X 80 

♦ FORMAT SPEC ♦. ♦ 5* 

♦ * **** 
*************** 
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PL /I SYSTEMS MANUAL 
*FLG 



♦ ♦♦ ♦ » 
4> * « * 
♦AO ..X* PTR=PTR+l * 

* ♦ * * 

**♦ ♦ ♦ 



41*41 4i**4i«**«*«*4> 



*Hi^,**m********* 



♦CONSTANT=YES * 

.X* DUMMY FEO»0 ♦ 

* NUMBER=i ♦ 

* * 



4ti(c4t4t4r*«:«4i4i#4i4i4i* 

* ♦ 

* ADVANCE PTR ♦ 

* TO TOKEN ♦ 

* FOLLOWING * 

* EXPRESSION * 
«4c**4[4i«*iC«4i«4t#4< 



FL040 

*f ************* 
♦GENER16 * 



**if*^jt'********* 



^i^4fi**t********* 

* * 

* ADVANCE PTR * 

* TO RIGHT * 

* PARENTHESIS * 

* * 
ti***ilf*^4f*1t***** 



N 'SKIP'? 


* 




* 


* 




* * 






* * 






* YES 












♦ ♦ 




FL250 I 


* ♦ 






* 


♦ YES 


**** '. 




* 


* * 


P ->TOKEN = 




*X AO ♦ . 


•SKIP'? 


* 


* 5* . 


♦ 


♦ 


♦ ♦♦♦ 


♦ * 






♦ * 






* NO 






240 V 




FL300 I 


4c4i 4t *4e* 41 4t4( * *4>4i 4c 4: 




* 


* 


♦♦♦♦ ', 


♦GENERATE CALL* 


* * , 


* TO LIBRARY 


♦.. 


.X A8 * . 


* ROUTINE 


* 


* 5* . 


♦ IHEDOBY 


* 


**** 


^i^l^^^i^lc^t^^i***** 





*YES ♦**♦ 
* * * 
*X AO = 



.X* B=FIRST FED ♦...X AO 
* ADDR A=P * ♦ 3* 
4> * **** 

*4i*«4>*4>*4>4'*4t*4t4> 



FL275 V 

*************** 
♦JFORI ♦ 

* « 

♦ FORMAT ITEM *. 



**«:4i4t*4i4i*4i«4i»4i4i 



FL235 V 

*GENER80 ♦ 

♦SEE FOLLOWING* 

♦ NOTE * 

♦ ♦ 
*4<**4'4c*4<4>***4'*4> 



* PTR=PTR+1 ♦. 

* 41 

* * 
****^i*****^***m 



.X C6 
* I* 
4t*4t* 



MISSING 
SPEC — FORMAT 
ITEM SKIPPED 



Chart 38. Foannat List Generator (Page 2 of 5) 



PL /I SYSTEMS MANUAL 
$FLG 



♦* ♦$FORI ♦ 

* « * * 

*BO*..X* FORMAT ITEM ♦ 



^0^m***m******* 



•*4i4i**4c***«**4i* 



* GENERATE * 
.X*STORE ADDRESS* 

♦OF FED IN FCB* 

* AT B ♦ 



* * 
X BO* 

♦ ♦ 



* * 

* GENERATE * 
♦STORE TYPE OF* 
*FED IN FCB AT* 

* B * 



^!^c^L*^^if*****i(f** 



m*************i* 



*************** 



*************** 



* *YES ♦*♦ 

♦ ♦ * 

FPTR ->TOKEN *X Bl* 

A')'? ♦ ♦ * 



************* 



*************** 



*************** 



FL*45 

«>♦* 

* * 
X B7* 

♦ * 
♦ ♦* 



♦ * FL402. 

♦ * 

* ♦YES *♦* 

* * * 

FPTR ->TOKEN ♦X AC* 

A'»'? * ♦ ♦ 

♦ ♦ ♦** 

* * 

* ♦ 
♦ NO 



ILLEG COMPLEX 

FORMAT ITEM, 

SKIPPING 



*************** 



FL*30 V 

*************** 

♦ ADVANCE PTR * 
♦TO NEXT COMMAS 

♦ OR RIGHT * 

♦ PARENTHESIS ♦ 

♦ TOKEN ♦ 
*************** 



*************** 
♦GENER16 _ ♦ 

* ILLEGAL * 

* TOKENS ♦ 

* * 
*************** 



♦ERROR AT 



*************** 



*************** 



.X^RESET COMPLEX^,..X A3 * 

♦ CODE ♦ ♦ 5* 

* * **** 
*************** 
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Pi/' SYSTEMS MANUAL 

♦ * 

♦ * 
.,.X* PTR=PTR+1 * 

♦ * 



ititfi^t'^***^****** 



♦ * 



FL525 

* * »♦* 

* ♦ ♦ ♦ 
.X* ADVANCE TO *...X B5* 

♦ RIGHT PAREN ♦ * ♦ 

♦ ♦ *** 



* IDENTIFIER A 

LABEL 

* VARIABLE? 



♦ LABE! EXPR 



:iL*:iiitiif******* 



♦ GENERATE A 

* LINK TO 

♦ FORMAT 

* STATEMENT 



4c ««««««« 414: **«*«' 



* ADVANCE PTR * 
X* TO RIGHT *. 

* PAREN * 

* * 



. X*ERRnR AT • • =( 

* ~ J 



FL530 

« * 

...X B6* 

* ♦ 



*♦ * ♦ 

*B7*..X* PTR=PTR+2 *. 
* ♦ * * 



* * 
.X BO * 



Chart 18. Format List Generator (Page 4 of 5) 



PL/ I SYSTEMS MANUAL 
$FLG 



PL250 

♦PREPARE DUMMY* 

•HALFWORO FED * 

. -X* KITH W*l ♦ 



FL320 ♦ * 

• * 

« • * 

♦BO ♦ SWT»FALSE? 

♦ ♦ ♦ 
♦♦♦ ♦ 



4c************** 



♦FORMAT ITEM 2* 



♦ SMT»FALSE 



*************** 



*************** 



* GENERATE ♦ 
. .X + STORE ADDRESS* 

♦OF FED IN FCB* 

♦ ♦ 
***♦♦*♦*♦♦♦♦*»* 



♦♦♦************ 
** *$EDGN2 ♦ 

* * * * 

♦82*.. X* END DO-LOOP ♦ 



*************** 



*♦* 

♦ » 
*A^ 



************ 



*************** 



*** 

* * 
*B3 

* * 

*** 



♦ YES 

♦ 
->TOKEN A ♦ 



*************** 

♦ * 

♦ ♦ 
,X^ PTR=PTR+l ♦. 

* * 

* ♦ 
*************** 



. X BO ♦ 
♦ 1* 
♦♦♦♦ 



♦GENERATE LOAD^ 
♦OF REG 1 WITH^ 

♦ I/O TYPE ♦ 

* ♦ 
*************** 



PTR ->TOKEN A 



*************** 

♦ ♦ 
♦ADVANCE FPTR ♦ 

.X*TO NEXT COMMAS. 

♦ OR RIGHT ♦ 

♦ PAREN ♦ 
*************** 



.X^ERROR AT 



*************** 



********** 



*********** 



.X* PLEV=PLEV-1 ♦. 

* * 

♦ * 
*************** 



*************** 



*************** 



FL315 

*** 

* * 
..X B2* 

* * 
*** 



FL320 

♦YES ♦♦♦ 
= ♦ * * 
♦ X B0 + 
* * 
*** 



*************** 

♦REMOVE ENTRY ♦ 

♦ FROM ♦ 

♦ TEMPORARY ♦ 
♦STORAGE TABLED 
*************** 



ONLY CNTRL 

ITEMS IN 

FORMAT LIST? 



*************** 



FL300 V FL320 

♦♦*♦♦♦**♦****** 
♦♦* ♦ * *** 

♦ ♦ * GENERATE * * * 
*A8 ..X*CHANGE FORMAT*... X BO* 

* * * ADDRESS AND ♦ * ♦ 
**♦ ♦ RETURN ♦ ♦♦♦ 

*****♦*♦♦♦*♦**♦ 



FL335 

V 

*************** 
♦ 

♦ RETURN 
* 

*************** 



■ -iiz 38. format List Generator (Page 5 of 5) 



PL/ I SYSTEMS MANUAL 
tFMT 



$FMT 



4r 4<4c *#;(<4i4> 4i#4i4i4<«4( 

♦ GENERATE * 
*BRANCH AROUND* 

♦ FORMAT * 

♦ * 



♦ ♦ 

♦DEFINE END OF* 

.X* FORMAT * 

♦ ADDRESS * 

♦ ♦ 



.X*MISSING LABEL*.. 



^ftp^ti*********-** 



X B4* 
♦ ♦ 

*♦* 



4c*«««4i4i*%**4>4<4>* 



:i^^************* 



FMOIO V 

*$BLPRC 



:tt*4c4<4i4i#«:^^4!4c4t 



*«:|t«4ci|t**4i*«4:4i4E* 



FM060 V 

*GENER16 ♦ 



4c4c*4:*««*«:^«^*«4e 



♦ * 

♦GENERATE RFI8* 

♦ TO RELEASE ♦ 

♦ REGISTER ♦ 

♦ ♦ 



^aHififiti^^t******* 



4i**4E**4<*******4t 



♦ GENERATE * 
♦INSTRUCTIONS * 
♦TO SAVE AODR ♦ 

♦ WHERE CAME ♦ 

♦ FROM ♦ 



FK050 V 

*************** 
♦iTCOOE ♦ 



***********iti*'ti 



************it*i^ 



**********^*m** 
RETURN 

**********3ti1f*^1f 



*t************** 

♦ * 

♦ GEN INST TO ♦ 

♦ RELOAD £ BR ♦. 

♦ WHERE CAME ♦ 

♦ FROM ♦ 
*************iti* 



Chart 39. FORIBIT Generator 



^/I SYSTiNS NAMUAi 
SFOllI 



#FUKI 



* 

♦ PTft«PIR*l 



♦ ADVANCE PTR * 
•X* ru TOKeN ♦ 

♦ FOLLOWING ♦ 

♦ eXPRESSIUN ♦ 



OBTAIN FIXED* 
INTE&Ek ♦ 



0^^^Him**m****** 



PTK ->TOKfcN 
A«)» ? 



VALUE A 
CONSTANT? 



♦ * 

♦ U6IA1N WORD ♦ 

♦ FOR FED^IIV ♦ 

♦ ilATiC * 

♦ STORAGE * 



♦ * 
♦C0NS1ANT=N0« ♦ 
♦T«ADDR£SS Of ♦ 

♦ F£u ♦ 

♦ ♦ 
*************** 



V 
♦ * 


F0020 
*** 


* k*tNt-KATt ♦ 

♦ STOKE ». 

♦ HALFWUkU IN * 

* FED » 
*************** 


♦ * 
..X bl* 

* * 
*** 



F0040 

*NJ «** 
* * ♦ 
*X 02* 

* * 
*** 



*************** 

* * 
*PTK ^ PTR ♦ 1* 

* NUMBEk = * 

* NOMBER ♦ 1 ♦ 

* ♦ 
*************** 



*************** 
*»NtXP * 

* EXP PKOC * 

* CNTKLR * 

* * 
*************** 



VALOe A 
CONSTANT? 



F0027 

*N0 *•* 

♦ • ♦ 
♦ X C3* 

* ♦ ♦ 

* *** 



* PLACE * 

* HALFWURU *. 

* VALUE IN * 

* DUMMY FfcO ♦ 
*************** 



*************t* 

* * 

* PLACE VALUE * 

* IN NUMBfcR+i *. 
*BYTfc OF DUMMY* 

* FED * 
*************** 



.X* PTR=PTR*1 



*************** 



**** ** * * 

* * * * *SKTP TO NfT * 
•X BO * *D2*..X* COMMA OR * 

♦ 2* * * * RIGHT ♦ 
**** ** * PARENTHESIS ♦ 

*************** 



CONSTANT 
YES? 



* EPROR AT - *..,X 82* 

* #16 * * * 

* * *** 
*************** 



*************** 

* * 

* OBTAIN WORD * 

* FOR FED IN * 

* STATIC * 

* STORAGE * 
*************** 



*************** 

* * 

* CONSTANTINO * 

* T=ADDRESS OF* 

* FED * 
« ♦ 
*^************* 



THIRD 

tXPKeSSlON L 

F FORMAT? 



*«.♦*<■<■*.' 



. X*GEN£RATE ADL * 
* I?& TO ^ ED ♦ 



Fnoit> 

*************** 

* GEMERATE * 

* STORE IN * 
♦NUMBEK+l BYTE*. 

* Of FED {AT * 

* ADDR T) * 

4i** ************ 
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PL/ I SVSTEMS MANUAL 



« * 



♦ YES 



♦ ♦ ♦ 

♦80 ♦ f»->TUKfcN A 

♦ ♦ ♦ ♦£» OR 'F* ? ♦ 

•«* ♦ ♦ 

♦ * 

♦ MO 



I^UM8€R=l? 



FO05SA 

» fi Di — — — # 

♦82*. .X+ SEE ♦ 

* * ♦ f01.LU*«IJ«i ♦ 

♦» ♦ HQIB « 



UN FUKMAT 



Nl/Mfttk > 3 



» Fn057 

♦ 

♦Y€S ♦♦♦ 

♦ * ♦ 
3 ? *X 3^^ 

♦ ♦ 



F0055A 

♦yes ♦♦♦ 
» « * 

? *X 62* 

♦ ♦ ♦ 



W»»Bff< < 3 



♦ ♦ FQ05T 

♦ ♦¥£$ *♦♦ 

* ♦ * 
i* ->TOKEN A ♦X &4^ 






FOOiT * ♦ 
* * 

♦ ♦NJ ♦•* 

X C01^STANT»YES? ♦X A7^ 

♦ YFS 



♦SMCuNS ♦ 

.X* UEF, FfcU AS ♦ 

♦ A CiJNbTANT ♦ 

« * 



NUMBER <2 ? 



♦ ♦ 

♦ NQ 



EQUAL Tn 2 



FO0558 

♦FRROR ♦ 



♦ SEE ♦ 

♦ FOIL owl ^K-. ♦ 

♦ MOTE ♦ 



1Hf:^,,Hii* ********* 
** * * 

♦ ♦ * lNniALlL£ » 
♦A7^.,X^ LOC. T WITH *. 

♦ ♦ » DUMMY FEO ♦ 
** * * 

*:^***^*0*^**t** 



**tf*********^** 



♦ J>fcT ADOKtSS * 

* OF Ftf) * 



4>««*4i4t4>«t»««L«4t<i« 



*************** 

RETURN 
*************** 



LAST 
♦ CONSTANT=yES? * 



FOOHO 

*************** 

♦ GENERATE TO ♦ 

♦ INCREASE ♦ 

♦ SECOND ♦ 

♦ EXPReSSSION ♦ 

♦ BY I ♦ 
*************** 



*************** 

* * 
*l>tN TO STORfc ♦ 

* VAL !N LAST ♦. 
« rYlL OF F^D ♦ 

* AT LOC T ♦ 

*******^*****^4t 



TOO FFW PLHS 

IN i-ORMT SPEC 

««3 



*************** 



♦ FEt 

♦ STO* 



6YT OF 
BY I K 
JN L4fT 



*************** 
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PL/I SYSTEMS MANUAL 



♦ * 

♦ GENERATE * 
♦fWANCH AROUND* 

♦ FORMAT * 



♦ ♦ 

♦ 3BTA1N PAIR ♦ 

♦ OF FORMAT ♦ 

♦ WORDS * 

♦ * 



^^^^^t^^^i******* 



««**♦*****«*««* 



*4c«4t4>4i«4r4i4<*4c*4'4' 



TOKEN •!•? 



♦♦♦♦♦♦♦♦♦♦♦**♦* 

♦ * 
♦ADVANCE AFTER* 

. X*CORRESPOND ING* . 

♦ RIGHT * 

♦ PARENTHESIS ♦ 
*♦♦♦*♦«♦*♦♦♦*♦* 



* ♦YES 

LOAD OF ♦ 

REGISTER LAST » 
TRIAD? ♦ 



«4t4c**4<4c**4[ 



♦ REMOVE SAVE * 
.X* OF FCB AND ♦. 

♦ RETURN ADDR * 

♦ TRIADS ♦ 

^^^^'♦♦♦♦♦♦♦♦♦♦^ 



FP120 

V 

* 

* RE TORN 

♦ ABNORMAL 



4c*4c*4c4c****4i«>|c** 

♦ * 

♦ GENERATE TO ♦ 

♦ RESTORE ♦ 

♦ REGISTER * 

41 ♦ 



4c4'***4<4<4i*4t*«4t** 

* ♦ 

* GENERATE * 
. X^ BRANCH BACK ♦ 

♦TO BEGINNING ♦ 

* OF FORMAT ♦ 

4c4'«***^**^^^^^# 



4i4t4t4i*4t^*«^*^^*4i 

♦ ♦ 

♦ RESOLVE ♦ 
♦BRANCH AROUND* 

♦ FORMAT ♦ 

♦ ♦ 



♦ ♦ 

♦ GENERATE ♦ 

♦ STORE OF ♦ 

♦ FORMAT ♦ 

♦ ADDRESS ♦ 

4i 4i*4t«4i4t 41**41 4i4i« 4c 



GENERATE * 

FORMAT LIS * 

CODE ♦ 

4c**4i4<4<*4c*^«**^ 



RfTURN NORMAL 

:^4c4:4c4c4c4c4i4i4c4c4<4c*.|c 



Chart 41. Format in Data List Processor 



PL/ 1 SYSTEMS HMUAL 
$OPEH & SCLOSE 



$QPBH 
mmm* *********** 



»ci*x 

* * 
** 



VARIABLE 
SVSIW 7 



IS DISK EW. *X C2* 

SET ? ♦ * * 

♦ ♦ *** 



3fti:f ************ 

*CLOS£ 

tt.******tt******* 



**^^**m********* 



Si#ITCH 



*************** 



^i^:t,4t*********** 

*$DOCS * 

.x*'set'ptrs*to** 

♦ options ♦ 

♦ ♦ 

***m*********** 



INPVT-0«TPtfr 
PTR NULL 7 



* ♦YES 

« DECLARED * 



♦GENERATE C00£« 
X*TO CALL CLOSE* 

♦ KUUTINE * 

♦ * 
lim^i^f*********** 



FILE POINTER 
NULL ? 



ANOTHER 
OPTION-GROUP 
TO PROCESS 7 



m************** 

♦ * 
♦ADVANCE $PTR ♦ 
♦TO SEMICOLON.* 

♦ RESET OPEN ♦ 

♦ SWITCH ♦ 

miH0itnl(;ti*m******* 



RETURN 



♦ PINO ATTRie ♦ 
♦FOR FILENAME * 



mif^i************ 



^m************* 

* * 
♦GENERATE CODE* 
♦TO LOAD ADOR.^ 

* OF fClB * 

* * 



* *■ 
« GfcN COD& TG * 
*&*<ANCH ABOUND*. 

* OPEN IF * 
*AtREADV OPfcN * 



iH*0iti^*ilisl,4'****** 

* * 
♦GENERATE CODE^ 

♦ TO SET FILE ♦ 
♦COOES IN FCIB^ 
♦SET TITLE SW ♦ 

^**i(*iti***i^4t**** 



If************** 
♦ERROR ♦ ♦♦♦ 

,%* ' PREV ♦...X tS* 
♦CONFLICT #57 * * * 

♦ ♦ ♦*♦ 

*************** 



♦GENERATE CODE* 

.X*TO MOVE FILP *• 

* NAME INTO ♦ 



« ♦ 

* ESTABLISH * 
♦DUMMV STRING ♦ 

* ASSIGNED TO ♦ 

* A(FCIB) * 



*N0 


*♦* 


*$NFXP # 




* ♦ 




OPEN 
STATEMENT ? * 

* 

*■ « 


*X A<t* 

* * 

*** 


♦ EXPR * 

♦ TYPE = TITLE =•- 

♦ ATTR < 



*fcRROR * *** 

* FILENAME *.,,X ei* 
♦MISSING #40 » * « 

* « *♦♦ 

:K.1f-iiim-9**tHti1f**^**f 



* ♦ 

♦GENERATE CODE* 

.X*TO C/SLL OPEN * 

» ROUTINE * 

* * 



« 4> 4t # 9«n^ « jic :(r 4c 4e * :«! « * 

* GENERATE * *** 

* RESOLVE * ♦ ♦ 

* FORWARD *...X A5* 

* INSTRUCTIOM * * * 

* BRANCH * «*♦ 
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Chart 42. OPEVCI^OSE Generator 



PART S - EXPRESSION PROCSSSlJgG 

CALL/3 6 0-OS PL/I roia-tines concerned primarily with expression processing 
are described in -this si2bsec-bion« The ron-tinas are discinssed in 
alphabe-tic order, according to their iraieiDonics^ as showi below. 
Detailed logic diagrciros for the routines appear at the BTid of the 
subsection* 

Argijunent Operand Processor C$1STATTP) 
Call Generator ($NCALL) 

Cross-Section Dope Vector Build {$NCSDV) 
Expression Processor Controller t$NEXP) 
Dimension Multiplier Generator {$M517LT) 
Coni7ert Operand ($NOPCV) 
Operator Stack Processor C$NOPRT) 
Operand Set- Op C$NPRE} 
Generate Triad C$TRIAD, $STRD) 
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TITLE: ARGUMENT OPERAND PROCESSOR C$NATTP) 

Program Definition 

Purpose and Usage 

The Argtiroent Operand Processor is used to obtain the attributes of 
an argument of a CALL or function reference. 

Description 

The argument list of a CALL or function reference is scanned twice • 
On the first scan, the highest type of the arguments and the number 
of array arguments are determined. This information is necessary in 
processing generic functions. On the second scan, the arguments are 
converted to the type required for the CALL, This routine is used 
to extract an argument's attributes in both scans. A flag indicates 
the scan number. During the first scan, a function and array argument 
are processed to substitute their return value attributes and array 
element attributes, respectively. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$NATTP. Register G2 points to the entry of the operand stack which 
contains the argument token. The flag $NXFLG is set to zero for scan 
one and nonzero for scan two. 

Exit Conditions 

Return is to the calling routine immediately following the invoking 
call. The attributes of the argument are set in the left operand area. 

Routines Called 

None 

Global Variable 

$NAARG Count of Number of Array Arguments 

$NLOTM Left Operand Type Mask 

$NXFLG Communication Flag 

$NLOPR Left Operand Arithmetic Precision 

A List Dictionary Attribute List 

Y Table Operand Stack 

Logic Diagram 

Chart 43 shows the detailed logic diagram for the Argument Operand 
Processor routine. 
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TITLE: CALL GENERATOR ($NCM.L) 

Program Definj-bion 

Purpose and Usage 

The Call Generator generates the triads required to call a function 
or subprogram. 

Description 

A begin call triad is generated with the entry point and number of 
arguments as operands- An argument list triad is generated for each 
argument. If the entry point is to a fixed-point SUM, PROD, or POLY 
routine «, a BED is generated for each argument. Each BED is passed 
as a separate argument immediately following the argument to which 
it applies. The operands for the arguments are obtained from the top 
entries of the operand stacky therefore , the arguments are placed in 
the argument list triads in the reverse order from which they appeared 
in the CALL or function reference. An end call triad is generated 
to terminate the argument list. 

Errors Detected 

None 

Local Variables 

NCNA Left half is flag; if nonzero, the entry point is to a 
fixed-point SUM, PROD, or POLY routine. The right half 
contains the number of arguments in the CALL or function 
reference. 

NCFN Save area for registers P3 and P4 

Program Interface 

Entry Points 

$NCALL. The number of arguments in the argument list is contained 
in register GO. The operands comprising the argument list are in the 
topmost entries of the operand stack, the last argument being at the 
top. Register P3 is the address of the operand area containing the 
description of the subprograio entry point. 

Exit Conditions 

Return is to the calling routine immediately following the invoking 
call. The entry point token has been replaced with a token referencing 
the end call triad. 

Routines Called 

$STRD Generate Triad 

$XERR Error Message Editor 

$WCTCT Segment Management 

Global Variables 

$ERROR Parameter List for Error Message Editor 

$NOPI Field of $NO 

$NOTKN Field Of $NO 

$NOTM Field of $NO 

$NTCUR Number of Last Triad Generated 

$NXOP Stack Triad-Building Operand i^rea First Word 
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$KXTKK 
$NYOP 
$KYTKN 
A List 

N List 
Y Table 



Stack Triad-Building Operand Area Second Word 
Stack Triad-Building Operand Area First Word 
Stack Triad-Building Operand Area Second Word 
Dictionary Attribute List 
Dictionary Haroe List 
Operand Stack 



Logic Diaqraic 

Chart 4^ shows the detailed logic diagram for the Call Generator 
routine. 
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TITLE: CROSS--SECTI01S DOPE VECTOR BOILD ($NCSDV> 

Program Definition 

Purpose and Usage 

The Cross-Section Dope Vector Bnild routine is invoked to process the 
subscript list of an array cross-section. The routine is invoked when 
the first subscript comprised of a single ♦ is encountered in processing 
a subscript list within an argument list. For example, asstime that 
the following subscript list is processed, with B having been previously 
defined as an array. 

INT(A,B(2,*,3),5) 

The list of arguments of the function INT contains three arguments: 
A, B(2,«,3), and 5. The list of subscripts of the array B consists 
of three subscripts: 2, ♦, and 3. 

All fields of the dope vector are constructed except the zero element 
address field and the number of dimensions field. 

Description 

The subscript list, starting immediately after the first ♦ subscript, 
is scanned. The subscripts comprised of a single ♦ token are counted. 
The dope vector is then allocated in static storage. The amount of 
storage required is a function of this count, the number of dimensions 
in the array cross-section. 

Let the subscript list dimension positions containing a single * token 
be pl,p2,p3,. . . ,pn. The data to be computed for each dimension of 
the array's cross-section dope vector is as follows: 

cross- section lower bound-bound (i) = array lower bound pCi) 

cross-section upper bound-bound (i) = array upper bound p(i) 

cross-section multiplier-multiplier (i) = product of the array 

multiplier p(i) and 
all the multipliers 
on subscripts of the 
array between p(i) and 
p(i+l) 

The subscript list is scanned a second time to generate the triads. 
The multipliers are computed and moved with the bounds into the cross- 
section dope vector. 

If the array is for a string variable, triads are generated to move 
the length fields of the dope vectors to the cross-section dope vector. 

Errors Detected 

None 

Local Variables 

None 
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Proqraicn Interface 
Entry Points 

$NCSDV. Registers G2 and G^ point to tlie top of the operand and 
operator stacks, respectively. Register G3 points to the first token 
of the token table following the first * subscript of tbe cross-section 
reference. 

Exit Conditions 

Return is to the calling routine irnraediatelY following the invoking 
call. Register G3 is reset to its entrance value. 



Routines Called 

$GTRIAD 

$WEXP 

$TRIAD, $STRD 

$WCTCT 

Global Variables 



Get Next Triad Entry 
Segment Management 
Generate Triad 
Segment Management 



$ASC 

$NLOPI 

$NLTKN 

$iSIROPN 

$NRPI 

$NRTKN 

$NRTM 

$NXTKK 

$NY0P 

$NYPTR 

$NYTKN 

A List 

T Table 

V Table 
X Table 

Y Table 

Logic Diagram 



Offset to Next Available Byte in Static and 

Constants Area 

Expression Processing Results 

Expression Processing Results 

Right Operand Area of Expression Processing 

Field of $NRSLT 

Expression Processing Results 

Field of $NRSLT 

Stack Triad-Building Operand Area Second Word 

Stack Triad- Building Operand Area First Word 

Stack Triad- Building Operand Area Third Word 

Stack Triad-Building Operand Area Second Word 

Dictionary Attribute List 

Token Table 

Expression Stack 

Operator Stack 

Operand Stack 



Chart 45 shows the detailed logic diagram for the Cross-Section Dope 
Vector Build routine. 
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TITLE: EXPRESSION PROCESSOR COISITROLLER ($NEXP) 

Program Definition 

Purpose and Usage 

The Expression Processor Controller controls the generation of triads 
to evaluate all expressions, the assignment statement , and the CALL 
statement entry name and argument list. 

Description 

An expression is composed of elements which are alternately operands 
and operators. The expression, to be properly formed, must start and 
terminate with an operand. An operand is an identifier, an identifier 
followed by a parenthesized list, an operand preceded by a prefix 
operator, or a parenthesized operand. A list is a series of expressions 
or single ♦ tokens separated by commas. A prefix operator is a + or 
- token appearing in the expression at an operand position. An operator 
is an infix +, infix -, *, /, t or **, comparison operator, g, | # or 
assignment symbol. Infix + and - are defined as a + or - token 
appearing in an operator position. 

The tokens of the token table are scaimed starting at the token set 
by the calling routine. Control remains in the Expression Processor 
Controller until an unexpected token appears at parenthesis level zero 
or an array assignment statement is recognized. 

Each left parenthesis token encountered in this scan causes the 
expression stack to be pushed down. Processing is continued assuming 
the start of a new expression. The type of expression (that is, 
argument list, subscript list, array cross section, expression, 
assignment statement, or array assignment statement) and other 
information pertinent to its processing are retained in the stack. 

All tokens recognized as identifiers are processed to determine the 
dictionary attribute list entry which applies to the scope of the 
reference. The pointer to this attribute entry and the pointer to 
the token in the token table are entered at the head of the operand 
stack. The + and - tokens identified as prefix operators are processed. 
The resultant effect is added to the operand stack entry to which it 
applies. 

The comma, left and right parentheses, semicolon, and all operator 
tokens are processed to determine their effect on the operator stack. 
Each of these tokens, except the left parenthesis, contains a priority 
number which is equal to the priority of the operator or separator 
plus 256 times the parenthesis level of the token. The operator 
priority assignments are: 



♦* or t 


10 


* and / 


9 


+ and - 


8 


compare 


7 


S 


6 


1 


5 


• 


4 


( 


3 


) 


2 


assignment symbol (=) 


1 



The left parenthesis token contains a pointer to its associated right 
parenthesis. The left parenthesis priority is obtained by adding 1 
to the priority of its associated right parenthesis. 
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The priority of the operator tinder process is compared with the priority 
of the operator entry at the top of the operator stack. If less^ 
triads required for the operator at the top of the operator stack are 
generated. Triads are also generated when the priorities are equal 
unless the operator under process is a 1 , **r oi^ » Ccomitia) within 
an argument list. The two entries at the top of the operand stack 
are the operands of the operator* The two operands are removed froin 
the operand stack. The operands are processed and triads generated 
to convert them, if necessary^ to the type required to complete the 
operation. The operand types are determined by the operator and the 
data characteristics of the operands. Triads are then generated to 
perform the operation. ^ token describing the result of the operation 
is added to the top of the operand stack. The operator is removed 
from the top of the operator stack and the process repeated for the 
new top entry. 

When the left parenthesis is removed from the operator stack as the 
result of processing the right parenthesis, the expression stack is 
popped up and the right parenthesis token discarded. The sign resulting 
from processing the prefix operators preceding the left parenthesis 
is added to the sign of the expression result • Processing continues 
assuming an operator is required next in the expression at the next 
outer parenthesis level. 

An array assignment is detected when an assignment is under process 
and an array or a cross-section of an array is encountered at 
parenthesis level zero or is encountered as the first argument of a 
built-in function or pseudo- variable; control passes to the alternate 
exit of the Expression Processor Controller to signal this condition 
to the calling routine. 

Errors Detected 

• • WHERE OPERAND EXP5K::TED, (86) 

' • WHERE OPERATOR EXPECTED. (87) 

INCORRECT NO. OF SUBSCRIPTS FOR AI^AY. (96) 
COMPILER ERROR. (100) 

• • ILLEGAL OPERATOR. (Ill) 

IMPROPER RELATIONAL EXPRESSION. (112) 

Local Variables 

NEPLEV Current parenthesis level. Set to zero on initial 
entrance to the routine. Increased by one for each 
left parenthesis encountered and decreased by one when 
the corresponding right parenthesis is encountered. 

NESTK Equated to the global variable $SNESTK which contains 
the address of the current expression stack entry. 

NATT Contains the dictionary attribute list entry offset 

of the last identifier encountered in the token stream, 

NPREI Prefix Operator Indicator. Three bits of this variable 
are flags: 

Bit 0: If 1» the operand is a parenthesized 
expression. 

Bit 4: If 1# the operand has had at least one 
prefix + or - operator. 

Bit 5: If ly the operand has a prefix minus 
operator . 
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NEQP Contains the pointer to the subscript substitution table 
for the processing of arrays in an array expression 
containing array cross-section references. This variable 
points to the token to be substituted for the current 
* token. 

Program Interface 

Entry Points 

$NEXP. The variable $PTR contains the pointer to the token table entry 
of the first token of the expression to be processed. The top entry 
of the expression stack is set to the type of expression to be 
processed. The variable $NEXPT contains the attribute type mask 
describing the conversion to be applied to the expression value. If 
all bits of the mask are set, no conversion is performed. 

Exit Conditions 

Normal exit. Control returns to the caller at six bytes following 
the invoking call. $PTR is set to the token following the last token 
of the expression. If the result of the expression is a constant, 
the value is returned in register GO. 

Array expression exit. Control returns to the caller immediately 
following the invoking call. The subscript number of the array at 
which the array expression was detected and the pointer to the attribute 
entry of the array are returned in $EXPNS. The variable $PTR contains 
the pointer to the token table entry at which the array expression 
was detected. 



Routines Called 

$FVAR 

$NCONS 

$NCSDV 

$NOPCV 

$NOPRT 

$NPRE 

$TRIAD 

$WBACK 

$WSTEP 

$WEXP 

$WCTCT 

$XERR 

Global Variables 



Locate Variable 

Constant Processor 

Cross-Section Dope Vector Build 

Convert Operand 

Operator Stack Processor 

Operand Set-Up 

Generate Triad 

Segment Management 

Segment Management 

Segment Management 

Segment Management 

Error Message Editor 



$ERROR 

$NPVF 

$EXA 

$NROPN 
$EXPNS 

$NRPI 

$GBQF 

$NRPR 

$NRTKN 

$NEXRT 

$NRTM 

$NFLAG 

$NXFLG 

$PRIOR 

$NLOPI 



Parameter List for Error Message Editor 

Complex Pseudo-Variable Flag 

Used to Dump Fixed Table Area on Token Processed 

by $NEXP 

Right Operand Area of Expression Processing 

Expression Processor to Array Expansion Routine 

Information 

Field of $NRSLT 

Table of Switches 

Field of $NRSLT 

Expression Processing Results 

Statement Processor Expression Result Type 

Field of $NRSLT 

Fixed- Point Scale Flag 

Communication Flag 

Operator Priority 

Expression Processing Results 
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$NLOPN 
$TAILS 

$NLOTM 
$NLTKN 
$NIDSI 
$PTR 
h List 
C Table 
V Table 
Q Table 
T Table 
y Table 
X Table 



Left Operand Area of Expression Processing 

Table of Pointers to End-of- Segment Control Word 

for Expandable Tables 

Left Operand Type Mask 

Expression Processing Results 

Identifier Search Indicator 

Token Table Pointer 

Dictionary Attribute List 

Constant Table 

Expression Stack 

Subscript Substitution Table 

Token Table 

Operand Stack 

Operator Stack 



Logic Diagram 

Chart 46 shows the detailed logic diagram for the Expression Processor 
Controller routine • 
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TITLE: DIMENSION MULTIPLIER GENERATOR ($NMULT) 

Program Definition 

Purpose and Usage 

The Dimension Multiplier Generator routine generates the triad required 
to multiply a subscript value by the dimension multiplier associated 
with the current array dimension. 

Description 

The array name and current dimension position are obtained from the 
top entry of the expression stack. If the array is a parameter, the 
right operand of the multiply operator is the address of the location 
of the array dope vector and the number of the dimension position. 
If the array is not a parameter , this operand is the actual address 
of the half word dimension multiplier in the array dope vector. The 
left operand is the value of the computed subscript. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$NMULT. The left operand area contains the description of the subscript 
value. The top entry of the expression stack contains the entry for 
the subscript list under process. 

Routines Called 

$STRD Generate Triad 

Global Variables 

$NESTK Address of Top of Expression Stack 

$NXOP Stack Triad-Building Operand Area First Word 

$NXTKN Stack Triad- Building Operand Area Second Word 

$NXPTR Stack Triad-Building Operand Area Third Word 

$NLOPN Left Operand Area of Expression Processing 

V Table Expression Stack 

A List Dictionary Attribute List 

Logic Diagram 

Chart U7 shows the detailed logic diagram for the Dimension Multiplier 
Generator routine. 
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TITLE: CONVERT OPERAND C$NOPCV) 

Program Definitiion 

Purpose and Usage 

The Convert Operand routine is used to convert an operand to any type 
required. The operand will also be scaled to any scale^ if desired. 
If the operand is a source constant and the conversion is arithmetic 
to arithmetic y the attribute entry of this source constant is changed 
to indicate the required type and scale. If the operand is not such 
a source constant ^ any triads required to achieve the desired type 
and scale are generated. If the operand cannot be converted to the 
required type^ an error message is generated. 

Description 

The operand to be converted is described in an operand entry whose 
format is: 

12 3 4 Byte 

r T 

I I $NOL 

Word 1 I I $NOTM |- 

I I $NOPR I $NOSF 




$NOTM = operand type flags 

$NOL = operand length if a string 

$NOPR and $NOSF = operand precision € scale if arithmetic 

$NOTKN = operand token 

$NOPI = sign and other flags 

The address of the first word of this entry is passed to this routine. 
The desired type, precision, and scale of the converted operand are 
set before entrance to this routine in $NRTM, $NRPR, and $NRSF, 
respectively. A result type of X'FF* indicates no conversion is to 
be performed on the operand. If the operand is to be scaled, $NFLAG 
must be nonzero; no scaling of it is performed if $NFLAG is zero. 

The type of the operand is compared with the desired type. If they 
are alike or if the desired type is X'FF*, no conversion is performed. 
If a conversion to the desired type is not possible, an error message 
is generated. If an arithmetic to arithmetic conversion of a source 
constant operand is required, its attribute entry is changed to indicate 
the desired attributes. The constant will be converted directly to 
this type by the Constant Processor routine ($NCONS). In all other 
cases where a conversion is required, a convert triad or series of 
triads to call the string to arithmetic or arithmetic to string library 
conversion routine (IHEDCN or IHEDNC) is generated. 

When the scaling flag is nonzero and the operand and desired types 
are both fixed, a multiply, divide, scale positive complex, or scale 
negative complex triad is generated to change the scale of a non-source 
constant operand to the desired scale; if the operand is a source 
constant, the desired scale is set in its attribute entry and the 
constant will be scaled to this value when converted by $NCONS. 



218 



Errors Detected 

OPERAND INCOMPATIBLE WITH REQUIRED ATTRIBUTES. (105) 
Local Variables 



NOTM 



NOSGN 



The operand and result type masks EXCLUSIVE OR's 
together. 

Contains the operation required to scale the operand 
(that is, multiply y divide, scale positive complex, 
or scale negative complex) . 



Program Interface 

Entry Points 

$NOPCV. Register P3 is the address of the first word of the operand 
area describing the operand to be converted. Registers G2, G3, and 
G4 contain pointers to operand stack, token table, and operator stack 
respectively. 

Exit Conditions 

Control returns to the calling routine iitanediately following the 
invoking call. No specific output values are returned. 



Routines Called 

$NCONS 

$STRD 

$WEXP 

$WCTCT 

$NCALL 

$XERR 

Global Variables 

$NLFLAG 

$NLOPN 

$NOPI 

$NOPR 

$NOPTR 

$NOSF 

$NOTKN 

$NOTM 

$NRL 

$NROPN 

$NRPR 

$NRSF 

$NRSLT 

$NRTM 
$NXFLG 
$NXOP 
$NXTKN 
$NYOP 
A List 
N List 
Z Table 

Logic Diagram 



Constant Processor 
Generate Triad 
Segment Management 
Segment Management 
Call Generator 
Error Message Editor 



Fixed-Point Scale Flag 

Left Operand Area of Expression Processing 



Field of 
Field of 
Field of 



$NO 
$NO 
$N0 



Field of $NO 

Field of $NO 

Field of $NO 

Field of $NRSLT 

Right Operand Area of Expression Processing 

Field of $NRSLT 

Field of $NRSLT 

Operation Result Attributes and Description Area 

of Expression Processing 

Field of $NRSLT 

Communication Flag 

Stack Triad-Building Operand Area First Word 

Stack Triad-Building Operand Area Second Word 

Stack Triad-Building Operand Area First Word 

Dictionary Attribute List 

Dictionary Name List 

Triad Table 



Chart 48 shows the detailed logic diagram for the Convert Operand 
routine. 



219 



TITLE: OPERATOR STACK PROCESSOR ($NOPRT) 

Proqraro Definition 

Purpose and Usage 

The Operator Stack Processor is used to process ^ in order, all operators 
in the operator stack whose priority is greater than or equal to the 
operator pending addition to the stack. The triads required to encode 
the operator and its operands are produced. 

Note: The comma in an argument list and the exponentiation operators 
are exceptions. The comma is processed when the right 
parenthesis token is encountered; the exponent operator is 
processed when an operator of lower priority is encountered. 

Description 

The operator type at the top of the operator stack is used to branch 
to the section of code which controls the processing of that operator. 
These sections are: infix ♦, infix -, multiply, divide, exponentiation, 
compare operations, assignment symbol, comma, and parenthesis. 

The tokens defining the operands of the operator are located at the 
top of the operand stack. The resultant type of all prefix operators 
influencing an operand is contained in the stack entry. Scale and 
conversion triads are formed, when required, to adjust the operands 
such that they are compatible with each other and their associated 
operator. The triad is then generated for the operator and its two 
operands. The two operands are removed from the operand stack and 
replaced with a token describing the result (that is, triad number, 
type, scale, and precision). The operator stack is popped-up and the 
process repeated for the operator at the head of the stack, if its 
priority is greater than or equal to the priority of the operator 
pending posting to the stack. 

Errors Detected 

ARRAY EXPRESSION ILLEGAL. (23) 

ILLEGAL USE OF • •. (29) 

ILLEGAL SCALE FACTOR FOR " ' — IGNORED. (64) 

ILLEGAL OPERAND FOR OPERATOR ' •. (89) 

OPERAND OF • • MUST BE BIT STRING. (91) 

ILLEGAL ASSIGNMENT. (93) 

INCORRECT NUMBER OF ARGUMENTS IN SUBPROGRAM. (94) 

ARGUMENT " * INCOMPATIBLE WITH PARAMETER IN SUBPROGRAM CALL. (95) 

INCORRECT NO. OF SUBSCRIPTS FOR ARRAY. (96) 

COMPILER ERROR. (100) 

OPERAND INCOMPATIBLE WITH REQUIRED ATTRIBUTES. (105) 

Local Variables 

NXPARM Used in processing argument list. Contains pointer 

to current parameter attribute entry if parameter 

attributes are declared. 
NXBINF If nonzero, a built-in function is under process. 
NXARGC Argument counter. Used to count arguments when 

processing an argument list. 
NXARGN Number of arguments in function reference 
NXHTYP Highest type of all arguments in an argument list 
NXPQ Largest precision minus scale of any argument of the 

list 
NXRS Precision minus scale of last argument of the list 
NXNAME Entry point number of library routine 
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Program Interface 

Entry Points 

$NOPRT, The priority of the operator pending posting to the operator 
stack is in $PRIOR, Register G2 points to the top of the operand 
stack; register G4 to the top of the operator stack. 

Exit Conditions 

Normal exit. Control returns to the caller four bytes following the 
invoking call. 

Parenthesis return. When parentheses are closed off (that is, a left 
parenthesis operator removed from the stack) , control returns 
immediately following the invoking call. 



Routines Called 

$NATTP 

$NCALL 

$NCONS 

$NLSIB 

$NMULT 

$NOPCV 

$NPRE 

$TRIAD, $STRD 

$WBACK 

$WCTCT 

$WEXP 

$WSTEP 

$XERR 

Global Variables 

$DISPL 

$ERROR 
$NAARG 
$NCPXP 

$NESTK 

$NFLAG 

$NIDSI 

$NLOL 

$NLOPI 

$NLOPN 

$NL0PR 

$NLOSF 

$NLOTM 

$NLTKN 

$NPVF 

$NRL 

$NROL 

$NROPI 

$NROPN 

$NROPR 

$NROSF 

$NROTM 

$NRPI 

$NRPR 

$NRSF 

$NRSLT 

$NRTKN 



Argument Operand Processor 

Call Generator 

Constant Processor 

Library Search 

Dimension Multiplier Generator 

Convert Operand 

Operand Set-up 

Generate Triad 

Segment Management 

Segment Management 

Segment Management 

Segment Management 

Error Message Editor 



Displacement from Variable Tables Address to 

Fixed Tables 

Parameter List for Error Message Editor 

Count of Number of Array Arguments 

Save Area for Arguments and Right-Hand Side of 

Complex Pseudo--Variable 

Address of Current Expression Stack Entry 

Fixed-Point Scale Flag 

Locate Variable Type 

Left Operand String Length 

Expression Processing Result 

Left Operand Area of Expression Processing 

Left Operand Arithmetic Precision 

Left Operand Arithmetic Scale Factor 

Left Operand Type Mask 

Expression Processing Result 

Complex Pseudo-Variable Flag 

Field of $NRSLT 

Right Operand String Length 

Expression Processing Result 

Right Operand Area of Expression Processing 

Right Operand Arithmetic Precision 

Right Operand Arithmetic Scale Factor 

Right Operand Type Mask 

Field of $NRSLT 

Field of $NRSLT 

Field of $NRSLT 

Operation Result Attributes and Description Area 

of Expression Processing 

Expression Processing Result 
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$NRTM 

$NTCUR 

$NRKN 

$NXFLG 

$NXFrR 

§NXTKN 

$NYTKN 

$NYTM 

$PRIOR 

$PTR 

$TAILS 



A 
C 



List 
Table 
N List 
Z Table 

V Table 

Y Table 
X Table 



Field of $NRSLT 

NiHtiber of Last Triad Generated 

Field of SNRSLT 

Communication Flag 

Stack Triad-Building Operand Area Third Word 

Stack Triad-Building Operand Area Second Word 

Stack Triad-Building Operand Area Second Word 

Stack Triad-Building Operand Area Type Mask 

Operator Priority 

Token Table Pointer 

Table of Pointers to End-of-Segment Control Word 

for Expandable Tables 

Dictionary Attribute List 

Constant Table 

Dictionary Name List 

Triad Table 

Expression Stack 

Operand Stack 

Operator Stack 



Logic Diagram 

Chart 49 shows the detailed logic diagram for the Operator Stack 
Processor routine. 
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TITLE: OPERAND SET-UP {$NPRE) 

Procrraro Definition 

Purpose and Usage 

This routine is used by the Expression Processor Controller to move 
the top entry of the operand stack to an operand area and to extract 
its type, sign, scale, precision, and length attributes. 

Description 

The top entry of the operand stack is moved to the indicated operand 
area. If the operand is a dictionary attribute pointer, the attributes 
are obtained from this entry. In all other cases the attributes are 
obtained from the stack entry itself. If the operand is a paraineterless 
function, triads are generated for this call. This result replaces 
the operand. If the operand is signed and of CHARACTER type, triads 
are generated to convert it to a FIXED integer. When $NXFLG is nonzero 
and the operand is a string, the attributes FIXED REAL (9,0) are 
substituted for the operand's attributes; the operand is flagged for 
conversion by the Convert Operand routine ($NOPCV). 

Errors Detected 

USE OF • • HERE CONFLICTS WITH PREVIOUS USAGE. (57) 

INCORRECT NO. OF ARGUMENTS IN SUBPROGRAM. (94) 

Local Variables 

NPSGN Used to save sign of operand when conversion from string 
to arithmetic type reguired. 

Program Interface 

Entry Points 

$NPRE. Register P4 contains the address of the operand area to be 
set up, G2 the operand stack pointer, G3 the token table pointer, and 
G4 the operator stack pointer. 

Exit Conditions: Return is to the calling program following point 

of invocation. 

Routines Called 

$WCTCT Segment Management 

$NOPCV Convert Operand 

$NCALL Call Generator 

$XERR Error Message Editor 

Global Variables 

$ERROR Parameter List for Error Message Editor 

$NFLAG Fixed-Point Scale Flag 

$NOPTR Field of $NO 

$NOL Field of $NO 

$NOPI Field of $NO 

$NOTKN Field of $NO 

$NOTM Field of $NO 

A List Dictionary Attribute List 

Y Table Operand Stack 

Logic Diagram ; Chart 50 shows the detailed logic diagram for the Operand 
Set-Up routine. 
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TITLE: GENERATE TRIAD C$TRIADr $STRD> 

ProqraiR Definii:ioii 

Purpose and Usage 

The Generate Triad routine is invoked to generate a single entry in 
the triad table (Z table). Space for the entry is obtained and all 
fields of the triad entry completed. 

Description 

The operator and location of the two operands to be placed into the 
triad entry may be specified on entrance. If not specified, the 
operator froni the top of the operator stack, the operand descriptions 
in the left and right operand areas, and the result type field are 
used. 

If an operand is a constant^ the value of the converted constant is 
searched in the constant table (C table) and the operand replaced with 
a token pointing to this constant table entry. If an operand is a 
triad reference, the last-use field of the triad it references is set 
to the number of the triad currently being generated. 

Errors Detected 

None 

Local Variables 

TRSGN Sign to be placed on the generated triad 
TRZPTR Address of the current triad table entry 
TRZP Pointer to the current triad table entry (relative to 
the origin of the user's area) 

Program Interface 

Entry Points 

$STRD. At entrance $STRD, register GO contains the triad operator 
positioned in the leftmost byte and the type of the triad result in 
the rightmost byte. Registers P3 and P4 contain the addresses of the 
operand areas containing the descriptions of the left and right 
operands, respectively. The sign of the triad result is set plus. 

$TRIAD. At entrance $TRIAD, the operator is assumed to be sitting 
at the top of the operator stack which is pointed to by register G4. 
The left and right operand descriptions are assumed set in $NLOPN and 
$NROPN. The result type and sign are contained in $NRTM and $NRPI . 

Exit Conditions 

Return is to the calling routine immediately following the invoking 
call. Register G7 contains an operand token which points to the 
generated triad. 

Routines Called 

$WEXP Segment Management 

$NCONS Constant Processor 
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Global Variables 



$OTiOPN 

$NOPI 

$NOTKN 

$NROPN 

$NRTM 

$NTCUR 

$NXFLG 

A List 

Y Table 

Z Table 



Left Operand Area of Expression Processing 

Field of $N0 

Field of $NO 

Right Operand Area of Expression Processing 

Field of $NRSLT 

Miamber of Last Triad Generated 

Communication Flag 

Dictionary Attribtite List 

Operator Stack 

Triad Table 



Logic Diagram 

Chart 51 shows the detailed logic diagram for the Generate Triad 
routine. 
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FABT 6 LOGIC DUdltiyi^ 

•Ilie detailed Ic^ic dia^rranes for the scotitlnes ccmceriiM primarily with 
expression processing follow* 

PL/ I SYSTEMS MANUAL 
«NATTP 



«NATTP ' 



* OPERAND 

. "am 



X*PRic FRM TOP * 

• OP ENT OPND * 

* ST * 



♦NO 
* PLAG • ZERO? *. 



INCTION ? ♦ 



*VAL fOR CPND * 
♦ATTRIB ENTRY ♦ 



* OPERANU AN * 
ARRAY CROSS 

♦ SECTION? ♦ 



\m. 



**mm^********** 



*************** 



..hIBUTi 
ENTRY 



♦INCKEAife THE * 

* NUMBER OF ♦ 

* AkkAY *, 
♦ARGUMENTS BY » 

* 1 * 



♦ FLAG • ZERO? 



♦ SET LEFT * 
♦OPERAND TVPfe ♦ 
♦TO ARRAY NAME^ 



NA44 MC4fc ♦ * 

* f 
*** *<> * #1 

«> ♦ ♦ « * 
.X A9* ♦Cf^X FLAG « ZERO? 
» « * * « 

* * 
* * 

♦ YES 

♦ SET RESULT * 

♦ TYPE TO i 

♦ HIi,MEST OF X 

♦ hSLT TYP U 1 

♦ UPND'S TYP*- 1 



TklB ENTRY ♦ 



4c«)ti4i***4>*«: 



♦YES ♦♦♦ 
* * ♦ 
OPERAND A ♦X L5* 

FILE ? * * * 



NTR' 

Chart 43, Argument Operand Processor 
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$NCALL 



SNCALL 



*St1 ARGUMENT * 

♦ COUNT TO ♦ 

♦ NUMBER OF ♦ 
♦ARGUMENTS IN * 

♦ CALL ♦ 



♦ *NU 

♦ FUNCTION ♦ 
FIXED POINT 

♦ SUM, PROD, OR ♦ 

* POLY? * 



* * 

* * 

* SET FLAG ON ♦ 

* * 
*************ti* 



••STRD • 



• ♦ ♦ FOtI 



ILLOU 
NOTE 



IMG 



•«•#«•• «*««i«4r»* 



FORM BEGIN 
CALL TRO WITH 
FUNC ENTRY PT 
TOKEN tCONT) 



if*9***********4i 



.X*SeT FLAG OFF ♦...X A6* 



*^i*****$IHi**9*** 



AND NO, OF 

AR6UHENTS IN 

CALL 



* ♦ NCOS 

* * 

♦NO **** 

* ♦ * 

ARGUMENT ♦X BO * 

COUNT ZERO? * * 2* 

* **** 



EACH ARGUMENT 

REQUIRES A 

OED 



♦ YES 



NCIO V 
*************** 
*$STRD * 

* -«— * 

.X* SEE ♦ 

* FOLLOWING ♦ 

* NOTE ♦ 
*************** 



ti9^f**mtimt*99*** 

* * 
♦SfcT NUMBER OF* 
♦ARGUMENTS IN ♦ 
♦CALL TO Ti«lCE* 

♦ THt NUMBLK ♦ 
***^^*1^*^::^**^^t^** 



NCOOK V 

♦♦ ♦FORM OPERANU ♦ 

♦ ** ♦ TOKEN FOR ♦ 
♦A6^..X^ NUMBER OF ♦ 

♦ * ♦ARGUMENTS IN ♦ 
♦♦ ♦ CALL ♦ 

m**nfm********** 



♦ADVANCE TRIADS ♦♦» 

♦ COUNTER BY ♦ ♦ ♦ 

♦ NUMBER OF ♦.,.X C0+ 
♦ARGUMENTS IN ♦ ♦ ♦ 

♦ CALL ♦ ♦♦♦ 



GEN END CALL 

THIAD W/FUNC 

NAMt TOKEN AS 

OPND 



4l >|titc«««:« *♦♦««♦«* 

* ♦ 
♦REPLACt FUNCT* 

* ENTRY PT » 

* TOKEN WITH ♦ 
♦TOKEN (CONT) ♦ 
«t««4-4(** ♦*♦♦♦♦♦♦ 



=tLi«>:tc:^««4c ♦♦*#♦♦«>♦ 

* « 

* HEFfcRfcNCING ♦ 
♦THE END CALL ♦ 

* TRIAO ♦ 

« * 

tfL^^t^tfJ^tf* ******** 



EXIT 

iHf^,*i^ilf'tH*4c****** 



Chart 44. Call Generator (Page 1 of 2) 
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PL /I SYSTEMS MANUAL 
$NCALL 



« 



FLAG SET UN? 



♦»STKD ♦ 



♦ FRN AKG LST * 

* TRD ICONTJ ♦ 



^ii^0it'*********** 



* * 

♦ FOR OEO OF * 
*ARG AT TOP OF* 

♦ OPO STK ♦ 

* ♦ 



4i4'«4(4i*«««4i«***4> 



♦REDUCE TRIAD ♦ 
♦COUNT BY ONt ♦ 



*4(»4t4i4i*«««;«4(««« 



♦ * 
♦CO*. 

♦ ♦ 



NC075 

♦>STRO ♦ 

»"■■-■ - - "- ■ ■ -» 

>X* FRM ARG LST ♦ 

* TRO FOR ARG * 

♦ * 



4c « «t4(«4t« ♦«4t«««4t « 



♦REDUCE TRIAD » 
♦COUNT BY ONE ♦ 



:ic tt^c^c*********** 



* ♦ 

♦ REDUCE ♦ 

♦ ARGUMENT ♦ 
♦COUNT BY ONE ♦ 

* ♦ 



♦ 


4> 




NCIO 


* 


* 










♦YfS 


**** 






♦ 


* ♦ 


ARGUMENT 




♦ X C4 ♦ 


cnuNT 


ZERO? ♦ 


♦ !♦ 






* 


^*** 



♦GtT ARGUMENT ♦ 

♦ FROM TUP OF ♦ 
♦OPERAND STACKS 

♦ * 



« «4i«(4(*« )ti4i4[«*4i4E4i 



♦ POP UP ♦. 

♦OPERAND STACKS 



##«4t**««4>*«**«4> 



ARGUMENT 

PARENTHESIS 

FLAG SET? 



NC0 75 

♦ X CO* 

* ♦ 



^tC0 75 

♦NiJ *♦* 
♦ ♦ ♦ 
♦ X CO^ 



ARRAY EXPR 
ILLEGL 



4: 4i« »«***«#»««** 
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Pi/: SYSTEMS mfiiifii. 
Iwcsrv 



S040 



SD3C * 



*NCSOV 



^*** ♦♦♦1»*f ♦*«♦ 
SET ORIOtN * 

AOoRess OF - 



DOP 
NT) 



»80*» TOKcN TVPE a <.y CO ♦ •:0»5f OFl JJ^ITJ^R AN 

* * ♦ i?T&HT PAPHN ? * ♦ 2" * ♦ ♦ ♦? 



SD15 



0£l!»!Tfil i 
• * 



TOKEN TVPF » 
OTHER 





• • 


V 
* • 


riAG S^T TO 

COHMa? » 

♦ 


♦ X D3» 

4*« 


• SET FLAG TO * 

• COMMA «• 

• • 



*««•«*••«••#••# 



♦ VECTOR TO ♦ 

♦ STA-ffC STOR ♦ 
♦COCINTR AilGNO* 

♦ pJO WORD * 



♦ ♦ 

• INITIALIZE ♦ 

* AODP OF 1ST * 

* ni** *IILT OF ♦ 
TfiV<< (CrNT» ♦ 



♦ « 

♦ srrr -^nPF * 

♦ vrfTQ'? TO * 

♦ nnpf VFrrnp ♦ 

♦ npir.iK ♦A ♦ 



* • 

• 4DVANCF TH • 

♦ NEXT TOKFHl ♦ 

• SFT FLAG W • 

♦ NON-COWMA • 



ADVANCE COM«A» 
COUNT • 



S017 



SUIT. 



TOK€N A COMM ♦ ♦ * 


* • 


Off A RIGHT *X A7« 
PARFN7 ♦ ♦ • 


W9«. 


• * 



•Vt ADVANCE TC 
• NEXT TOKEN 



••««•*«•#**••«• 



'2SJ 



SCAN aAG SET 
• TO SCAN ONE? 









•X* SET fLA€ TO *• 

♦ NON-COWA • 



♦ * 

♦SFT riMF^SION* 

♦ rrijKTrp yn * 

♦ f!3!<;t * 

♦ ni^PNSfn? ♦ 
*************** 



* • 

* AnVAKCE TO 

* NEXT cfnss 



...K A7* 



«•««***«***«**« 



♦^rT fCAN FLAT* 



***0*00***0#**0 



♦4 7 ,,X* BRANCH ON * 
♦ ♦ ♦ TOK E-N TYPE ♦ 

*** * * 

***0***m**ti**** 



TOKLN TVPt -. 
DEIIH»TER' 



SD^C 

♦ *♦ 






'^ ^fT SCAN ♦ 

.»♦ INOCX TO *, 

* 8 IGHT PAP^f. « 

^ TOKF-ftJ * 
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PL n SViTfHS >*tN<IAt 
INCSDV 



* * 

♦AC 

* ♦ 



•COUNT nf nt^F ♦ 



4i*«««««*«*4t4>j>*« 



,x*Fni> p'm*«4TinN* 

• ••UlT * 



♦ Arv. Tr #srxT ♦ 

• ♦ 









•V£CTO« WtT, * 



♦ SfT cfpsT * 
*^PfllANT5 I A^T # 

♦ TPfAH ♦ 

♦ SENCPATEO ♦ 



«**4>« *«*•**«*** 



♦irCDUCF CO?lf»A 
♦COUWT 9V OHF 



*•*#« ***4*4t«**4> 



«* «GFN TPfAO TO * 

* * *STOE 0\f Hwt T* 
♦eO*,.X* !NTO CRSS ♦ 

♦ ♦ * ^ECT OCPf * 
«* ♦ VCTP * 



* ftOVANCE TO ^ 

* NEXT * 

* DI/HENSIQW *■ 

* *«UT|Plf^P * 

* *BORFSS * 

41 *«**#*#« **«4> «« 



**4 4#**«**4>**)tr« 






,*• SET fLAG TO * 
* esiP or- SCAN ♦ 



#4l**«r««'^ 



♦ AOViNCf TO * 

* NEXT CROSS ♦ 

♦ SFCflON • 

* 0I*t€NSfOI« * 



Ft AG SCT TO 
Etit) OF" SCa*l? 






EtC^fNTS 
♦ STUWfi TVP€? 



♦SEX TBI*© TO ♦ 
• INITU L#toTW ♦ 
*FiOS GF CPSS • 
*5fCT a« VECT* 



SCAN FLAG SFT 
TO SCAN OKF? 



SOlO 

* ♦ 
♦X A!* 



*pr;pM TBI Ap T^C* 

* **Oyf LOWER * 
.,¥* RCUV" ^F ♦ 

* ?rONT) ♦ 



V S017 

* # ♦^^^ 

* VPCTrn xc ♦ ♦ ♦ 
♦TPPSS ^ErTir*i*«.«X A7 ♦ 



• ^♦^r*******^*** 



♦ IMTtZ ACC1' * 

♦ OF 15T ni** * 

♦ Kt, ni^f ♦ * 

♦ ICONTt ♦ 



4»«*4r #«*«*•«**#« 



♦A nop. Cf 1ST 



4i4i«**#«4**4>*4t«* 



#^ #* «« #• # *#« **« 

♦ 1»€SET ?CAf< ♦ 
♦PTP Tn ST AST ♦ 

♦ SCAN FI»tJ« * 

♦ «f GINNING * 

♦ TCKfN ♦ 



♦INITlAtllf TO* 

♦ ^WST * 
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♦ AHPAV CUCSS * 

♦ SECTION ♦ 



♦ * 

♦ SFT APPAY ♦ 
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♦1ST ♦ prs IN * 

♦ APPAV RfF * 



♦ ♦ 
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♦ VfCT ASSIGN ♦ 

♦ CP FROH CP ♦ 

♦ STCK * 



♦ INfT CPfPATCP* 
♦STK WITH ryi^F* 
*yrr ftSSIGN OP* 

♦ ToxeN ♦ 

41* ****«««••«*«• 



««*«*«**.4t «***«« 



*****<«*•*>***«« 



♦ ** 



r««*<»*««*«** 



♦fOPM Ti^TAC TO* 

,v*vnvF pnuND nf* 

* APPAV rrpr * 

♦VPCTHP ICONTI* 



* ♦ 

* Tl f JPSS ♦ 

* * 
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************** 
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*************** 
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♦ FLOAT? 


* 


* * 
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*************** 
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************* ** 
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• * •*** 
******«*»**4i*** 
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♦ SEE NOTE 7 



4c4i4c4t4c4'*^^^*4>4'*# 



OP60 

♦♦♦« 

♦ * 

. X 06 ♦ 

♦ 3* 

♦♦*♦ 



♦ SEE NOTE 8 



***«*4<4'«1i>l>4c4t*^^ 



0C0T5 

♦♦♦ 

♦ ♦ 
X C3* 

♦ ♦ 

**♦ 



* SET RESULT ♦ 
♦SIGN TO SIGN ♦ 

* OF OPERATOR * 

* TOKEN ♦ 

*4c4i4i4i4i**4c4<*4c*4c* 
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♦ ♦ * 

*X C3* 
♦ ♦ 

♦ ♦♦ 



♦ ARRAY 
DIMENSION = 

♦ COMMA COUNT? 



PN40 
*♦*****♦*♦***** 
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*************** 
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**********mmmmm 
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♦♦♦♦^i**********. 
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*************** 
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m************^**^ 



:^«**4t«4r4i*«*«*«* 



*SET RESULT TO* 
.X* REAL FIXED ♦. 

* INTEGER * 

* * 



.X* Al * 
* 14* 
***# 
NX996 



* ♦ NX9996F 

* * 

♦ *YES ♦*** 

* * * 
ABS FUNCTION *X 03 * 
CAtl? ♦ * I** 

* * •*♦♦ 



.X* AI ♦ 
* 14* 
♦**♦ 
NX 996 



TYPE = 127 



TYPE = 16? 



******* 4>^ * 4t** * * 



*************** 

* SET RESULT * 
X* TYPE TO ♦. 

* STRING • 

* * 
*************** 



*************** 



*************** 



..X C4 
* 14* 
***« 



NX 72 

*** 



PN08 

**** 

* * 
.X C2 * 

♦ 8* 
**♦♦ 
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tNOMiT 



PReC-SCM.E 



*4i4c4i*««*4t«*4c*#* 



* * * 

*Al * RESULT TYPE 

* * ♦ FIXED? 

*** * * 



****4t«*4>*«i»*4i«« 



.X* A2 * 
* 13* 

♦*»* 
NX72 



NX72 

♦YES ♦♦♦• 

* * 4c 
♦ X A2 ♦ 

* ♦ 13* 



SIZE = 4? 



NX9996F 

*****4c4i4c««i4'*«** 

»♦* * * 

♦ * ♦SET RESULT ♦ 

.♦03 ..X^ PREC TO ♦. 

♦ HIN<9, P+1) ♦ 

♦ ♦ 



*** 



.X A2 ♦ 
♦ 13^ 
*♦♦♦ 



.X* A2 ♦ 
♦ 13* 

NX72 



.X* 



♦ SET RESULT ♦ 

♦ PREC TO ♦. 

♦ M1NI9» MAX ♦ 

♦ PQ-MAX Q» ♦ 
:»4>4'**4i4<*^4>4t4E4>^4' 





NX72 


**^0^^*0m****** 




♦ ♦ 


**** 


♦ SET RESULT ♦ 


* * 


X^SCALE TO MAX ♦...X A2 * 


♦ Q ♦ 


♦ 13* 


♦ * 


***♦ 



**4[4i4t4>4i***^*4<*)|< 



SIZE = 12? 



♦ SET RESULT ♦ 

♦ PREC TO ♦ 
.X+MIN(9f SECOND*. 

♦ARG PQ ♦ MAX ♦ 

♦ Q) ♦ 



4> ite4t * 4< 4> It 4< «■ 4< 4> 4c * 



il**^:*ilf0m******* 



.X A2 * 
♦ 13* 
*♦** 



SIZE = 16? 



.X* 



SET RESULT ♦ 

PREC TO ♦. 

♦ MIN(9, MAX * 

♦ (PQ+1. D) ♦ 



*i$$iM****t^****** 



1c********t'***** 



NX72 

**** 

♦ * 
.X A2 * 

♦ 13* 



SIZE = 20? 



mtt************* 



nfti****ie***#**** 



***4t*4i****4c4c*4c4> 



NX72 

* * 
.X A2 * 

♦ 13 + 

♦*** 



«******««*««*«* 



SIZE = 28 



*«**<l>«i*»4>***«** 
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'*5II. 



I *«*«••*•••*• 



««4i«4i*4r«4i««4(4u»4t 



« * 

♦SAVE HIGHEST * 

« ATTRIB TYPE ♦ 

* QF ARGUf^NT * 

• * 



♦NO 



NX97 



NUMBER OF 

ARGS « NUMBER ♦X A3* 

OF FARMS? ♦ * ♦ 



NX97 

*♦ ♦GENER94 * 

III * # ♦ 

*A3*..X* WRONG # OF ♦. 
♦AR6 FOR CALL ♦ 
4> * 



♦* 



^ftf************ 



* * 

* ADJUST ARG ♦ 
.X*CONVERT TYPE ♦ 

♦MASK BY FUNCT* 
♦ARG CONV VAL ♦ 



♦ ^YES 

TYPE = ARRAY? ♦ 



NX 82 

♦YES ♦♦♦♦ 
« « « 
♦ X AO ♦ 

♦ 16^ 
♦♦♦♦ 



4i4i«i|c*4>*4i#«««4>*4> 



♦ X C4 ♦ 

♦ lb* 

**** 



TYPE * STRING 



NX87 

* * * « 
.X^SET BUILT-IN ♦...X 83 ♦ 

♦ FLAG TO 3 ♦ ♦ 16* 



NX992X 


V 


NX 87 


4c** 


* * 


**** 


» * 


♦ ♦ 


* * 


♦ X C9^ 


♦SET BUILT-IN ♦., 


.X B3 ♦ 


* ♦ 


♦ FLAG TO 1 ♦ 


♦ 16* 


♦** 


* * 


***« 



**4<«*«**#«**4i«« 

* FORM SECOND ♦ 
♦ARG EQUAL TO ♦ 

♦ LENGTH OF ♦ 

* CONVERTED ♦ 

♦ STRING ♦ 



♦ ADD SECOND ♦ 

♦ ARG TO ♦. 

♦ OPERAND ♦ 

♦ STRING ♦ 



.♦C9^.,X^ SET RESULT ♦..,X C4 ♦ 

♦ ♦ ♦LENGTH TO 255* ♦ !&♦ 

*« * * ***♦ 

i^«« ««:»*«t4t4i *«*« « 



Chart 49, Operator Stack Processor (Page 15 of 17) 



PL /I SYSTEMS MANUAt 
SNOf>RT 



* ♦ 
*A0 

* * 



♦ BRANCH ON * 
X* FUNCTION * 

♦ CHOICE TYPE * 

♦ ♦ 



.X.X. 



4i4!**«c**«4c*«4>4<*i(t 



TYPE = 4? 



98 ♦ * NX991 

♦ * 

IS ARGUMENT *X C** 
COMPLEX? * * * 
* ♦ *♦* 



* ♦ NX87 

* * 

♦YES ♦*♦ 

TYPE « 0? *X B3* 
* ♦ ♦ 



♦CHOOSE ENTRY * 

. X* PT ON BASIS * 

* OF HIGHEST * 

* ARG TYPE * 



NO 



NX87 

♦ *♦ 

* ♦ 
X B3* 

* * 

♦ ** 



NX90 V 

*$NLSIB 

4i 

♦ SEE NOTE I 



*:(f****if******** 



NX991 V 

♦** * FORM INLINE * 

* * ♦ BUILT-IN * 
*C4 .,X* FUNCTION * 

* * * TOKEN FOR ♦ 
*** ♦ ENTRY * 

*«4c4c4t4i4>**4i***4>* 



NX87 

♦NO ♦♦♦ 
♦ * * 
♦ X 83* 
* ♦ 



93 ♦ ♦ 


NX64 


« * 




* ♦NO 


♦ ♦♦♦ 


* 


♦ * 


FUNCTION TYPE 


♦ X B2 * 


ARRAY? ♦ 


♦ !!♦ 



ENTRY A 

PSEUDO 

VARIABLE? 



NX991F 
*♦♦* 



NX85 
*GENER95 ♦ 



tf**if*****'****** 



NX37 

* * 
X B3* 

* ♦ 
♦ ** 



♦ ♦ 

♦SET ARGUMENT ♦ 
♦CONVERT TYPE ♦. 
♦TO ARRAY NAME^ 

♦ ♦ 



ENTRY COMPLEX 

PSEUDO 

VARIABLE? 



NOTE 1, ADO 

ENTRY PT TO 

RUNTIME LIB 

REQS 



**4c4i4t4i4<*^^***^^ 

♦ ♦ 

♦ SET COMPLEX ♦ 

♦ PSEUDO ♦ 
♦VARIABLE FLAG+ 

♦ TO 20 ♦ 



♦SET ARGUMENT ♦ 
♦CONVERT TYPE * 

♦ TO ♦ 

♦ NON-CONVERT ♦ 



ARE PSEUDO 
VARIABLE 
ARGUMENTS 
♦ VALID? 



♦ X AC ♦ 

♦ n* 

♦*♦♦ 



♦»NATTP ♦ 



*«4i**««««4i«4[4i«* 



V NX991F 
*««♦***♦*♦♦♦♦♦♦ 

♦GENERICS ♦ ♦♦♦♦ 

* 4> ♦ ♦ 

♦OPERND 1NC0MP^...X AO ♦ 

♦ M/ATTRIBS ♦ ♦IT* 

* ♦ ♦**♦ 
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$NOPRT 



PH16 



:4(*«4i«4(«**4i*« 



FUNCTION 
FIXED FLOOR. 

CEU, OR 
*T'=1UNC RTNS? 



♦X S5 * 
* 16* 

♦♦*♦ 



STACK 



♦ATTRIBUTES 
•X* _._ARRAT 



*«*»*«*««4i«*4i*4r 



*SET ARGUMENT * 
♦CONVERT SCALE* 

* TO ZERO * 

♦ ♦ 



NX64 

♦*♦* 



* CONVT ARG *. ..X B2 
*W/OUT SCALING* * 11* 



ARRAY 

REFERENCE 

SIGNED? 



*iSTRO * 

* SEE NOTE 1 ♦ 

* * 

* * 
«4e4t4t*4t4'4i4t*4t4<*** 



* SEE NOTE 2 



^^^I************ 



PN30 V 
*$STRD ♦ 



PN25 PN20 

♦G6NER23 * ♦♦* 

.X*""ARftAY"ix?R~"*...X D5* 

* ILLEGAL * » • 

* * *** 



* SEE NOTE 3 



4c4t4E4i*4t4i4<4i **4i** * 



* * 
*ADD CRSS SECT* 
♦DOPE VEC AOOR* 

* £ ATTRIB TO * 

* OPNO STCK * 



VIRTUAL 

ORIGIN WORD 

TO SBSCR 



NOTE 2, GEN 

TRD TO CHNG # 

DIMS IN CROSS 

(CONTI 



NOTE 2, SECT 

DOPE VEC TO # 

OF ♦ TOKENS 



NOTE 3. GEN 
TRO TO STR « 



NOTE 3, 

ORIGIN INTO 

CROSS SECT 

DOPE VEC 



♦STRIAO * 



4i4»C4i»**4<**«**4i« 



4i4i4c4<*«*4i««*4<*** 

♦ * 

♦ ADD RESULT ♦ 

♦ TOKEN TO * 
♦OPERAND STACKS 
4> * 
4i*4c#4t***«****** 



ARRAY 
ELEMENTS 
LABELS? 



* SET ♦ 

♦ IDENTIFIER ♦ 

* SEARCH ♦ 
♦INDICATOR TO ♦ 

♦ LABEL TYPE ♦ 

«4t4i*4>4t«4'******«< 



♦ SET SPTR TO ♦ 
X+ TOKEN T8L ♦ 

♦ENTRY ICONT) ♦ 

* * 



4c4<*4i****«4i4i4i*4>* 

♦ ♦ 

♦ AT WHICH TO ♦ 

♦ CONT FOR ♦ 

♦ ARRAY ♦ 

♦ EXPRESSIONS ♦ 

4r*4i*«4c*«*««««4i« 



4>**4i«4t**4t***«** 
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SNPRE 



NP45 
******* #*«*4i4t4t# 
♦ERROR ♦ 



««**«*«*«<«»«* ;^4[ 



4><f •♦**««♦*♦«♦« 41 



^«««**«*4> ***«[** 



OPERAND AN 
ENTRY NAME ? 



NO OF PAR AM 
ZERO ? 



X* SEE ♦ 

* FOLLOWING ♦ 

♦ NOTE ♦ 



* * 

* EXTKAcT ♦ 

♦ OPERANO»b * 
♦ATTRI8S FRUM * 

♦ OICT ENTRY » 



♦NO »** 
» ♦ * 
♦ X 04* 
♦ ♦ * 

♦ ♦♦♦ 



TOl] h> w 

ARGUMFMS FCR 

CALL «M 



♦ TO OPEkND ♦ 

♦ ARtA ♦ 



OPhRANU AN 
♦ ARRAY NAME ? ♦ 



» ♦YtS 

..HtRANiv AN ♦ 
MTKlbUlt PTK 
? 



* 
♦ X tiO* 



HP 32 

♦YtS ♦♦♦♦ 

* ♦ * 
♦ K BO ♦ 

♦ ♦ 2* 



Ht>o V 




NP40 


♦ ♦ 


^^^^^^^^^^^c^^t^^itc 




* ♦ 


* 


4e 


♦ ♦*♦ 


* ♦NL 


* cXT QPNDS 


♦ 


* * 


* FLAu b£T TO ♦ 


♦ ATTKlbUTfcS 


♦ , 


..X CI ♦ 


♦ convlki to 


♦ FkuM UPNO 


♦ 


♦ 2* 


♦ ARITH TYPF ? ♦ 


♦ STCK ENTRY 


♦ 


♦ »♦* 


* * 



^*^*ti****4f***** 



♦RbAL<y, J.FLo^ 
♦nPND AS SIRNG^ 
♦ (cuNT) ♦ 



%*»***4>****«** 



«i*«««4'#4'*#*4c4i* 



♦ SET OPNOS ♦ 
♦ATTRIBUTE TO ♦ 

♦ STRNG TYPE ♦ 

♦ ♦ 





NP46 V 




4i***^,t********* 


♦*♦ 


* 4c 


* ♦ 


♦ » 


*D2 . 


.X^ SET ['PNH m * 


♦ ♦ 


♦ FRROK T )KFN ♦ 



♦YtS ♦♦♦ 

♦ * ♦ 
♦ X 05^ 

* ♦ * 
» ♦♦♦ 



««#* ♦♦♦<<♦ «♦#*♦♦ 

♦ ♦ 

♦ SET ENTRY ♦ 
♦NAME TO DATE;* 
♦SET LNGTH TO ♦ 

♦ 6 ♦ 

♦ ♦♦♦♦♦^i *«♦**♦♦♦ 



«t«4>4c^*«4ct4c#4:4<<t 



4i**4c<c*4c«4c «!♦♦*«♦ 
FXIT 



*« 4c««4'4: * « « «♦ 41 ♦« 

* ♦ 

♦ ST ENTRY NA'^t^ 
•X^TO TIME; SFT ♦ 

♦ LENGTH rr o ♦ 

* ♦ 



NP'iO V 

♦ *»* «c«# «♦*♦♦«: * 

♦SNCALL 



***««r:»««4c«4t4r**! 



NPBO 

♦ ♦* 

* * 

.X f^^* 

* * 

♦ ♦♦ 



*1^**tc*t ******** 

♦ * 

*ST OPNnS ATT-'* 
.X* n THE RFT *. 

♦ V4L ♦ 

♦ ATTPIbilTfi * 



*»♦♦♦♦♦**♦*♦♦♦♦ 

EXIT 

*************** 
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»NPRE 



NUrfc If TYPfe 

NOT 

CUNVfcRTIBLE 

TO FIXED , 

INTEGER #57 



X« BRANCH ON ♦ 
♦OPERAND TYPE * 



mm******m****** 



♦ OPERAND TYPE 
= ARITHMETIC 

♦ ? 



NP40 

V 

.♦CI X» EXIT 
« * ♦ 



NUIt ^i 
CLNVfcRT OPRNO 
TO KEU'U TYPE 



♦ *YES 

♦ OPERAND TYPE ♦ 

= CHAR STRING ♦ 

♦ ? ♦ 



♦ » 

* SET RESULT ♦ 
.X* ATTRIB TO ♦ 

♦ FIXEO» REAL ♦ 

* 19,01 * 
*************** 



*************** 

♦SNOPCV ♦ 

* . * 

♦ SEE NOTE 2 ». 



*************** 



NP42 
*************** 

♦ERKOK * 

« 4t 

♦ SEE NOTE I *. 



*************** 



NP46 

* * 
,.X 02 * 

* I* 
**** 
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STRIAO 



$srnD 



« OPNO AREA * 
* $MLOPN * 



1ST WO OF 
T%IAD Z LOC 
OF (CONT) 



♦ OESCPTN OF * 

♦ RIGHT TRIAD ♦ 

♦ OPND SET TO ♦ 

♦ OPNO AREA ♦ 

♦ SNROPN ♦ 



OPND OESC ARE 
SET ey CALL 

<^OUTINe 



* * 

* FORM 1ST taO * 

* OF TRIAD FROM* 

* CP AT TOP * 

* ( CONT I • 



4<»4[4i«t«*«****««[* 



**ti************ 



TROOO 

X 86* 

* • 
«** 



♦ * 
♦OF OP STK AND* 

♦ RFSULT TYPE • 

♦ FIELD ♦ 

« ♦ 

*•***•»♦•«**•*♦ 



♦ • 

♦ SET TRIAD * 

♦ SIGN FROM ♦ 

♦ RESULT SION • 

♦ F I EL D * 



RESULT TYPE 

LABEL 
CONSTANT ? 



♦ ♦ 

♦SET VARIABLE * 

♦ BIT OF RESULT* 

♦ TYPE ♦ 
» * 
*♦****•♦*♦*♦♦♦♦ 



TROOA V 

♦♦*♦♦♦♦*♦*♦*♦♦♦ 

« « **m* 

♦ ADVANCE TO ♦ • * 

♦ NEXT TRIAD ♦...X AO * 

♦ TABLE ENTRY * * 2* 
m ♦ ***♦ 

**«i*4i***4t ****** 
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*4r4t * * 

♦ ♦ * BRANCH ON * 
*A0 ..X*LEFT OPERAND * 

* * * TYPE * 
**♦ « * 



TR16 

♦SET SGN FLOS ♦ 

♦OF CURR TRIAD* 

.X* FROM OPND * 

* OESCRPTN » 

* <CONTI * 



LEFT OPERAND 

TYPE = 

CONSTANT f 



♦SET LAST USE ♦ 
X* FIELD OF * 

♦ TRIAD ENTRY ♦ 

♦ OF tCONT) ♦ 



m** ************ 

* * 
♦SIGN FIELDS £♦ 

♦ FROM TRIAD ♦ 

♦ RESULT SIGN ♦ 

* *> 
**************** 



TRIO V 
♦ $NCON ♦ 



if#m************ 



♦LEFT OPERAND ♦ 

♦ TO CURRENT ♦ 
♦TRIAD NUMBER ♦ 

* * 
*ltti************ 



*ti*fti*1t**mti#t:*** 

♦ * 
♦SET LAST JSt * 
♦FIELD OF CUPP* 

♦ TRIAD 7ERG * 

♦ * 
*^i****m******** 



^im************* 

* * 
♦SET LEFT GPND* 
♦OF CURR TRIADS 

* TO CONST ♦ 
♦TABLE (CONTJ ♦ 



«4i«««4t* «♦<:«**«* 



*itit!***********^ 
*♦ * * 

* ♦ ♦SET LEFT OPND+ 
♦83*..X+0F CURR TRIAD* 

♦ ♦ ♦TO TOKEN OF ♦ 
♦♦ ♦LEFT OPERAND ♦ 

4f************** 



*if ************* 

* * 

* BRANCH ON ♦ 
.X^RIGHT OPERAND^ 

* TYPE * 



« • 


TR26 


V 


«■ * 






♦ NO 


*** 


♦ * 


tNO CALL ♦ 


* * 


♦ FORM TOKEN * 


TRIAD FOR 


*X B3* 


♦REPRESENTING ♦ 


SUBSTR? ♦ 


* * 


♦RESULT TRIAD * 


* 


*♦* 


♦ ♦ 



tHH^^t'********** 



*:ti*if**m******** 



TR26 

♦NO ♦♦♦ 

♦ ♦- * 
f ♦X 83* 

* ♦ ♦ 
* *** 



*ttiHi******^1Hrtt* 



***if**1HHt=****** 

EXIT 
m^t************* 



* ♦YES 

* RIGHT OPERAND ♦ 

TYPE = ♦ 

♦ CONSTANT ? ♦ 



♦ ♦ 

♦SET LAST USE ♦ 
*jr, r,jRft TRIADS.., 

♦ ""UIMBER ♦ 

♦ * 
*****tiit******** 



TC14 
********* 
♦SNCON 



TR26 

*** 

* * 
X B3^ 

* * 
*** 



* IN CONST TB ♦ 

* * 
*************** 



,X* 



*************** 
♦ SET RIGHT ♦ 
♦OP NO OF CURR ♦ 
^ TRIAD TO ♦ 
CONSTANT ♦ 
» ( CONT ) ♦ 
*************** 



♦SET LAST USE ♦ 
.X^ FIELD OF ♦ 

♦ TRIAD ENTRr ♦ 

♦ OF rCONTI ♦ 
*************** 



*************** 

♦ * 
♦RIGHT OPERAND^ 

♦ TO CURRENT ♦ 
♦TRIAD NUMBER ♦ 

♦ * 
*************** 



*************** 



*************** 



*** 

* * 

X 00^ 

♦ ♦ 



CURR TRIAO*...X 00^ 
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PART 7 - CODE GENERATOR 

The routines described in this subsection are concerned primarily with 
code generation. They are discussed in alphabetic order according 
to their mnemonics , as shown below. Detailed logic diagrams for the 
routines appear at the end of the subsection. 

Optimize Operands C$OPMZO) 

String Constant Dope Vector Initializer C$SCDV) 

Triad Code Generator ($TCODE) 

Triad Operand Processor C$TOPR) 

Adcon Register Assignment ($VASGA) 

Computational Register Assignment ($VASGC) 

Register Table Initializer ($VCLR) 

Storage Address Assembler C$VDSAC) 

Temporary Storage Management ($VGTMP) 

Instruction Assembler ($VINSA) 
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TITLE: OPTIMIZE OPERANDS C$OPMZO} 

Program Definiiiion 

Purpose and Osage 

The Optiimize Operands routine is used to determine the effective sign 
of both triad operands and to arrange the order of the operands to 
optimize their referencing. 

Description 

This routine checks each operand to determine whether it is in a 
register. If so, it sets the effective sign for the operand to the 
operand's register sign. If the interchange flag is ON, the operands 
are ordered so that the left operand is in a register if either operand 
has a register address. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Point 

$OPMZO. The operands are in the left and right operand areas. A flag 
is set to one if the operands may be interchanged to optimize their 
referencing; otherwise, it is zero* 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
Registers G5, G6, and G7 are destroyed. The flag is set to two if 
the operands were interchanged. 

Routines Called 

None 

Global Variables 

$NXFLG Ccanmunication Flag 

$PREG Register Address of Operand 

$PSGN Operand Type Flag 

$PTO Origin of Table of Operands (Data Parameter Table) 

Logic Diagram 

Chart 52 shows the detailed logic diagram for the Optimize Operands 
routine • 
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TITLE: STRING CONSTANT DOPE VECTOR INITIALIZER {$SCDV) 

Program Definition 

Purpose and Usage 

The String Constant Dope Vector Initializer routine forms the 
initialization table (I table) entry required to initialize the dope 
vector of a string constant. 

Description 

The address and length of the constant are obtained from its constant 
table (C table) entry. Eight bytes of word-aligned storage are obtained 
in the static and constants area for the dope vector. An initialization 
table entry is constructed for the initialization of the dope vector. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$SCDV. Register G^ contains a pointer to the constant table (C table) 
for which the dope vector is formed. 

Exit Conditions 

Control passes to the instruction following the call. Register G4 
contains an address word token representing the address associated 
with the string dope vector. 

Routines Called 

$WEXP Segment Management 

Global Variables 

$ASC Offset to Next Available Byte in Static and Constants 

Area 
C Table Constant Table 
I Table Initialization Table 

Logic Diagram 

Chart 53 shows the detailed logic diagram for the String Constant 
Dope Vector Initializer routine. 
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TITLE: TRIAD CODE GENERATOR C$TCODE> 

ProqraiR Definition 

Purpose and Usage 

The Triad Code Generai::or controls the generation of code for the triads 
contained in the triad table. In general, this represents the code 
for a single statement. 

Description 

A triad with an end-of -table operator is placed in the triad table 
in the next available entry. Entries of the triad table are then 
processed in order starting with the first entry and continuing until 
the end-of-table entry is encountered. The triad operator is used 
to branch to the section of this routine which controls its processing. 
The types of triad operators and the numeric codes that identify them 
are listed below. 



Null 





End Triad Table 


4 


Begin Call 


8 


End Call 


12 


Convert 


16 


Argument List 


28 


Assignment Equal 


32 


Divide 


36 


Subtract 


40 


Compare 


48^52,56 




60,64,68 


OR 


72 


AND 


76 


Multiply 


80 


Add 


84 


Subscript 


88 


Test Compare 


92 


Define Address 


96 


Branch 


100 


Combine or Resolve Statement 


Label 104 


Backward Internal Branch 


108 


Forward Internal Branch 


112 


Resolve Forward Internal Branch 116 


Store Address 


120 


Align 


124 


End Block 


128 


Prologue 


132 


Library Call 


136 


Symbol Table 


140 


Branch and Link 


144 


End Prologue 


148 


End DO 


152 


Begin DO 


156 


Return 


160 


Dope Vector Element Multiply 


164 


Dope Vector Store 


168 


Scale Complex Positive 


172 


Scale Complex Negative 


176 


Halfword Subscript 


180 


Store Code Address 


184 


Test Under Mask 


188 


Title 


192 


OR Immediate 


196 


Other (Error, because unused) 


20,24,44 
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In general, processing of a triad consists of: 

1. Determining the register and/or core address of the operands* 

2. Determining the sign of the operands and the sign of the result 
of the execution of the triad code. Signs may be adjusted to 
optimize the required instruction sequence* 

3. Arranging the operands, when possible, to insure optimum code 
generation. 

4. Determining the entry of the symbolic instruction table CM 
table) to be used by the Instruction Assembler routine C$VINSA) 
in generating the code for the triad,. 

The triads with arithmetic operators, comparison operators. Boolean 
operators, and the assignment equal operator have two operands which 
agree in type, mode, and precision. Fixed-- point operands are already 
scaled to the required scale. If the operands are strings, they may 
be treated as though they are both the length of the left operand. 
The type mask of the triad gives the attributes of the operands. The 
operand sign fields give the signs to be applied to the associated 
operands; the triad sign field gives the sign to be applied to the 
result of the triad. 

"T^^ convert operator triad is used only for arithmetic to arithmetic 
conversions. The left operand indicates the source to be converted. 
The format of the right operand is shown below. 

12 3 4 Byte 



i I 1 I 1 

Word 1 I I Target I Source I Source I 

I I Scale I Scale | Type j 

I I I I I 

L J 

The triad type mask represents the target type. The operand sign 
fields are always zero. The triad sign field gives the sign to be 
applied to the result of the triad. 

A subroutine call, either library or programmer-defined, is represented 
^_by a begin call operator triad, one argument list operator triad for 
each of its arguments and each of its required DED's, and one end call 
operator triad. 

The begin call triad appears first in the triad table and has the 
indication of the entry point as the left operand and the number of 
argument list triads for the call in the right operand field. The 
begin call triad is immediately followed by the argument list triads 
for the call. The arguments and DED's appear in reverse order? that 
is^ the last argument or DED appears first. The right operand of the 
last argiainent list triad points to the begin call triad? the right 
operands of all others point to the list element that immediately 
precedes it. The left operand is the argiiment or DSD description. 
All arguments have been converted to the type required for the call. 
The sign of the argiament is in the left operand sign field. This field 
also contains a flag to indicate whether the argument requires a dummy. 
The end call triad terminates the argmient list. The right operand 
points to the last argument list triad (or to the begin call triad 
if there are no arguments). The left operand is the indication of 
the entry point. The triad sign field of this end call triad is the 
sign to be applied to the function result. 
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'^^^ subscript operator triad indicates a subscripted reference. The 
left operand indicates the array and the right operand the value of 
the subscript converted to a fixed integer. The sign of the subscript 
is in the right operand sign field. The sign to be applied to the 
subscripted reference is the resultant of the left operand sign and 
triad sign field. 

The test compare operator triad immediately follows a triad containing 
a comparison operator. Often this triad is replaced with a triad with 
a branching operator. The right operand contains the operator appearing 
on the comparison. The left operand points to the comparison triad. 
The triad sign field, if negative, indicates that the greater than 
and less than tests must be reversed* 

'^^^ fc^i^anch operator triad is used to encode the GOTO statement. The 
left operand is a pointer to the attribute node of a statement-label 
constant or a statement- label variable or a pointer to a triad table 
entry of a subscripted label array reference. The right operand is 
a comparison operator or the indication of an unconditional branch. 
This operand is used to determine the condition code for the branch. 
The code to perform the branch (if no definition for the label precedes 
the reference in the current block) is provided by the Instruction 
Assembler. 

The combine or resolve statement label operator triad is used for the 
definition of a statement label having branches which precede the 
definition and for labels having references within an inner block but 
no explicit declaration. In the first case this triad appears preceding 
the triads of the statement it prefixes. The code for the branches 
to the label is completed by the Instruction Assembler. In the second 
case this triad appears after the triads defining the body of the inner 
block. If the label is defined in the next outer block, this case 
is treated just as the first with the references resolved to the label 
of the other block; if not, the list of references to the label in 
the inner block is added to the list of references to the label in 
the outer block. The left operand points to the attribute node of 
a label in the dictionary attribute list. The right operand is an 
object code address or triad pointer to the chain of references to 
the label. The sign fields of the triad are ignored. 

The backward internal branch operator triad is used to define a branch 
to a compiler-generated label which precedes the reference. The left 
operand is either a code address or a pointer to the triad associated 
with the code to be referenced. The right operand is a comparison 
operator or the indication of an unconditional branch. This operand 
is used to determine the condition code for the branch. The sign 
fields are ignored. This type of branch roust be within the current 
block of code already generated; therefore, a branch on condition to 
the code is always generated immediately. 

The forward internal branch operator triad is used to define a branch 
to a compiler-generated label which follows the reference. The left 
operand is a pointer to a word containing zero or a pointer to a triad 
which also references the same label. The right operand is either 
a comparison operator or an indication of an unconditional branch, 
or a pointer to a triad with a comparison operator. A negative right 
operand indicates that the greater and less than conditions of the 
comparison should be inverted. Since the code referenced by this 
branch has not been generated, maximum space for the branch on condition 
is reserved in the code area by the Instruction Assembler. The last 
word of this triad contains a pointer to either a triad or a word 
within a table. This field is used in forming the list of references 
to the same generated label. 
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The branch and link operator triad is used to establish linkage code 
to the code associated with an I/O format specification or to return 
from a subprogram. The left operand may be an absolute register 
specification y an attribute node pointer to a format labels a triad 
pointer to a subscripted label array reference, or a pointer to the 
triad associated with a format specification. The right operand and 
sign fields are ignored. Code is generated for the linkage with the 
return address placed in absolute register RP«^ the standard return 
point register. 

The resolve forward internal branch operator triad is used to complete 
the code which branches to a generated label whose definition appears 
after references to the label. This triad appears at the point in 
the program flow at which the generated label is defined. The left 
operand contains an object code address to the first reference to the 
generated label to be completed. All other fields of the triad are 
ignored. 

The define address operator triad is used to save the current code 

location counter in a table entry or in a triad. The left operand 

is either a table pointer or a triad pointer. All other fields are 
null. 

The store address operator triad is used to load the address of an 
operand into a register or to store the address of an operand into 
an adcon. The left operand may be an absolute adcon register 
designation y an adcon area address ^ or an attribute node pointer. 
This operand indicates where the address is to be placed. If the triad 
sign is nonzero, its value is added to the address of the left operand. 
The right operand may be any type of operand. The right operand sign 
field applies to the operand. 

The align operator triad is used to align the code location counter 
to a fullword. After the alignment is performed, the operator performs 
the same function as the define address operator triad. The operands 
are the same as for the define address. 

The end block operator triad is used to complete the chain of code 
generated for the block prologue (that is, generates a branch from 
the last section of prologue code to the first source statement code) 
and to generate the epilogue code. The left operand is the pointer 
to the block information table (B table) entry for the block. All 
other fields are ignored. 

The prologue operator triad is used to generate the call to the Initial 
Prologue, Expand DSA, End Prologue, Object Program Initiation routine 
(IHESADA). This routine performs the function of opening the block 
for execution. It saves all necessary registers, establishes the 
fixed-length part of the dynamic storage area, and sets up ON-condition 
action. The left operand is the pointer to the block information table 
entry associated with the block. 

The library call operator triad is used to generate the linkage to 
a standard nonbuilt~in function. The left operand identifies the entry 
point to be called. The right operand, if not null, indicates the 
address of the parameter list. All other fields are ignored. 

The symbol table operator triad is used to generate entries for the 
runtime symbol table required for elements of the DATA I/O lists. 
This triad causes one symbol entry or an end-of-table entry to be 
generated. The left operand is a pointer to the dictionary attribute 
node for the identifier to be added to the symbol table of the data 
list. The right operand is the dictionary name list pointer of the 
identifier; a null pointer indicates that an end~of-table entry is 
to be generated. (For the format of symbol table entries, see Appendix E.) 
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The end prologue operator triad is used to initialize tables for the 
generation of the chain of code required to evaluate variable lengths 
and bounds y to allocate variable- length data areas , and to initialize 
dope vectors for the variables of the block. Space is reserved in 
the code area sufficient to branch to the first element of this chain, 
The address of the first byte of code for the block is saved so that 
this prologue chain may be completed v^en the end of the block is 
reached. Code is generated which closes the block's prologue. 

The left operand is the pointer to the block information table 
associated with the block. All other fields are null. 

The begin DO and end DO operator triads are used to define the code 
bounds of an iterative DO-group. The Instruction Assembler processes 
the register table CR table) to generate code to store the expression 
values contained in registers which still have active usages. These 
values must be retained in their temporary storage until the associated 
end DO is reached. All operand fields of these triads are ignored. 

The return operator triad is used to generate code to return from a 
subprogram. All operand fields of the triad are ignored. 

The dope vector element multiply operator triad is used to form the 
dope vector for an array cross-section. Code is generated to form 
the product of the two operands. The right operand always refers to 
a multiplier from an array dope vector. The operand field is the 
dictionary attribute node pointer of the array. The right operand 
sign field indicates the dimension ntamber of the multiplier required. 
If the left operand is an attribute node pointer , it too refers to 
a dimension multiplier from the dope vector and its sign field indicates 
the dimension number of that multiplier. Dimension multipliers are 
half word quantities. In all other cases^ the left operand is a fullword 
value as specified by the operand and its sign field has the usual 
meaning. 

The dope vector store operator triad is used to form the dope vector 
for an array cross-section. Code is generated to store the right 
operand into the halfword left operand. If the right operand is a 
dictionary attribute node pointer, the operand refers to a halfword 
field of an array dope vector. The operand field is the attribute 
node pointer of the array. The right operand sign field indicates 
the dimension number of the dope vector element required. The sign 
field of the triad indicates whether a multiplier (4), upper bound 
(0), or lower bound (2) is required. The left operand is always an 
address in static storage of a halfword dope vector element. 

The scale complex positive and scale complex negative operator triads 
are used to scale fixed-point complex operands. The left operand 
defines the complex operand; the right operand, the constant table 
CC table) pointer to the power of ten by which the left operand is 
to be multiplied or divided. The sign fields and the type mask have 
the usual meanings for arithmetic operations. 

The halfword subscript operator triad is used to generate DO- loops 
for the expansion of array expressions.. This triad is used to refer 
to the upper and lower bound fields in an array dope vector. The left 
operand is the dictionary attribute node pointer to the array. The 
right operand is the offset to the dope vector element within the dope 
vector. All sign fields are always plus. 

The store code address operator triad is used to generate code to store 
the current value of the code location counter into an adcon for use 
by the Error Routine (IHEERR) at runtime. All operand fields of the 
triad are ignored. 
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Errors Detected 



CONVERSION ERROR — SCALE FACTOR TOO LARGE- 
COMPILER ERROR. ClOO) 

Local Variables 



(84) 



None 

Proqrcun Interface 

Entry Point 

$TCODE. The pointer to the current triad table entry is pointing to 
the last triad for which code is to be generated. 

Exit Conditions 

Control returns to the caller iininediately following the invoking call 
except when the size of the user area is too small to continue. In 
this case an SVC 6 is given and control does not return. Registers 
at exit are the same as at entry; no specific output values are 
returned. 



Routines Called 

$NCONS 

$NLSIB 

$OPMZO 

$SCDV 

$SVC 

$TOPR 

$VGTMP 

$VINSA 

$WBACK 

$WCTCT 

$WEXP 

$WSTEP 

$NCVT 

$XERR 

Global Variables 

$ACODE 
$ASC 

$COMAD 

$ERROR 

$GBQF 

$NBIF 

$NCCUR 

$NLINE 

$NPVF 

$NTCUR 

$NXFLG 

$PADD 

$PARAM 

$PLNG 

$PREG 

$PSGN 

$PTKN 

$PTR 

$SEVCT 



Constant Processor 

Library Search 

Optimize Operands 

String Constant Dope Vector Initializer 

SVC Director 

Triad Operand Processor 

Temporary Storage Management 

Instruction Assembler 

Segment Management 

Segment Management 

Segment Management 

Segment Management 

Constant Conversion 

Error Message Editor 



Pointer to Next Available Byte in Object Code Area 

Offset to Next Available Byte in Static and Constants 

Area 

Address of Communications Area 

Parameter List for Error Message Editor 

Table of Switches 

Built-in Function Flag 

N List Current-Entry Pointer 

New Line Flag 

Complex Pseudo-Variable Flag 

Number of Last Triad Generated 

Communication Flag 

Core Address of Operand 

Address of Library Parameter List 

String Length of Operand 

Register Address of Operand 

Operand Type Flag 

Operand Token 

Token Table Pointer 

Total Number of Error Messages Produced 
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$TAILS 



$VLPAK 


FREPTR 


NOERMSG 


A 


List 


B 


Table 


C 


Table 


N 


List 


M 


Table 





Table 


R 


Table 


Z 


Table 


Loqic 


DiacrraiR 



Table of Pointers to End-of- Segment Control Word for 

Expandable Tables 

Doubleword- Aligned Work Area 

Pointer to First Available Word in Compiler's 

Variable Data Area 

Number of Error Messages (Communications Area) 

Dictionary Attribute List 

Block Information Table 

Constant Table 

Dictionary Name List 

Symbolic Instructicm Table 

Operation Code Table 

Register Table 

Triad Table 



Cbart 54 shows the detailed logic diagram for the Triad Code Generator 
routine. 
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TITLE: TRIAD OPERAND PROCESSOR ($TOPR) 

Program Definition 

Purpose and Usage 

The Triad Operand Processor routine processes the two operands of a 
triad to determine the core address^ core sign, register address, 
register sign, and length of each. This information is placed in the 
adjacent operand areas indicated by register P4. 

Description 

Both operands of the current triad are processed • The type 
identification of an operand is used to determine where its addressing, 
sign, and length information can be obtained • This information and 
the operand token are stored in a data parameter table,. The left 
operand is placed in the first entry of the table; the right operand 
in the second. (For a description of this table, see $PTO under 
"Compiler Variables* in Appendix A.) 

Errors Detected 

None 

Local Variables 

TOFLG If zero, the left operand is being processed; 

otherwise, the right. 

Program Interface 

Entry Points 

$TOPR. The address of the triad is in register P5,. The address of 
the operand area in which to store the left operand is in register 
pa. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
All G and P registers other than P5 may be destroyed. 

Routines Called 

$NLSIB Library Search 

$NCONS Constant Processor 

Global Variables 

$CBKNO Current Block Number 

A List Dictionary Attribute List 

C Table Constant Table 

Z Table Triad Table 

The follow fields of the data parameter table are set. 

$PADD Core Address of Operand 

§PLNG String Length of Operand 

$PREG Register Address of Operand 

$PSGN Operand Type Flag 

$PTKN Operand Token 

Logic Diagram ; See Chart 55. 
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TITLE: ADCON REGISTER ASSIGNMENT ($VASGA) 

Program Definition 

Purpose and Usage 

The Adcon Register Assignment routine searches the adcon register 
portion of the register table (R table) and selects a register for 
assignment. 

Description 

The adcon register portion of the register table contains an entry 
for each adcon register used in the object program. Some of the 
registers are permanently assigned and cannot be selected by $VASGA, 
A volatile register may be specifically inhibited or have a symbolic 
assignment, in which case it will not be selected, A simple reference 
count is associated with each register and effectively causes the 
available registers to be assigned in rotation. 

Errors Detected 

None 

Local Variables 

R$ARRC Reference count for adcon register assignment. This 
count is increased by one and associated with the 
selected register each time a register is assigned. 
In choosing a register, the one with the lowest previous 
count is selected. 

Program Interface 

Entry Points 

$VASGA. No formal parameters. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
Register G2 contains a pointer to the register table entry for the 
selected register. 

Routines Called 

None 

Global Variables 

R$AD Pointer to Adcon Register Portion of Register Table 

R Table Register Table 

I^Kric Diagram 

Chart 56 shows the detailed logic diagram for the Adcon Register 
Assignment routine. 
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TITLE: COMPUTATIONAL REGISTER ASSIGNMENT ($VASGC) 

Program Definitiion 

Purpose and Usage 

The Computational Register Assignment routine searches the computational 
register portion of the register table (R table) and selects the best 
register or pair of registers for assignment. 

Description 

The computational register portion of the register table is divided 
into two parts, one for fixed-point registers and the other for 
floating-point registers. The type of register to be obtained is 
determined by a flag set by the calling routine. Registers are arranged 
in pairs of even-odd numbered addresses. Either a single or a double 
register may be assigned; the option is indicated by a flag set by 
the calling routine. 

The register table entries consist of a principal assignment and a 
list of synonyms. (See the description of the Instruction Assembler 
($VINSA) for a discussion of synonyms.) The principal assignment may 
be a constant, variable, or intermediate result (indicated by a triad 
pointer). In selecting registers, every effort is made to avoid 
choosing one that contains an intermediate result which has yet to 
be used. To aid in this determination, every triad contains a "last- 
use" count — - the number of the triad after which the intermediate 
result will no longer be needed. If the last-use count associated 
with a register is not greater than the number of the current triad 
for which code is being generated, the register contains active 
intermediate results and receives a low priority in the selection 
algorithm. Of course, selection of an active register may be 
unavoidable. When this condition occurs, $VASGC generates object 
coding to store the contents of the register into temporary storage 
and adjusts the associated triad to point to the storage assigned for 
it. 

In selecting a register, each entry in the appropriate part of the 
table is examined (every second entry, if a double register is wanted) 
and assigned a priority code- A register meeting the requirements 
for priority 7 is selected at once; otherwise the entire table is 
searched and the register with the highest priority is selected. If 
two registers have the same priority, that with the higher last- use 
count is selected. (For a double register pair, the last-use count 
used for comparison with other registers is the lower count of the 
pair.) 

The priorities are assigned as follows: 

1. A single register is needed, and the examined register is an 
active double register. 

2. A double register is needed, and the examined register is an 
active double register. 

3. A double register is needed, and, of the examined pair, one 
register is active, the other is free, and either or both 
registers have synonyms. 

4. A double register is needed, and, of the examined pair, one 
register is active, the other is free, and neither has synonyms. 

5. A double register is needed, and the examined pair is free, 
but both registers have synonyms. 
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6. A double register is needed, the examined pair is free, and 
one of the two registers has synonyms, 

?• The examined register is a free register of the required size 
(single or double) and has no synonyms • 

$VASGC has three subordinate entry points which perform limited services 
for the calling routines 

1. $VRSYN removes the synonyms from a designated register table 
entry. 

2. $VSAVE stores the contents of a designated register into 
temporary storage* 

3. $VFREE examines a designated register to determine whether it 
can be made free. 

Errors Detected 

None 

Local Variables 

VSFLG Increment to second address when storing double 

registers into temporary. 
VSOP Operation code to be used when storing registers 

into temporary. 
VSSAVE Storage for register CI on internal subroutine 

calls. 
VSTEMP Miscellaneous work area. 
VSX Currently assigned selection priority. 

VSY Last- use count of currently selected register. 

Program Interface - $VASGC 

Entry Points 

$VASGC. High-order bit of $VRTYP set to zero for floating-point 
register selection, to one for fixed-point; $VRAMT set to zero for 
single register selection, to nonzero for double. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
Register G2 contains a pointer to the register table entry for the 
selected register. 

Program Interface - $VRSYN 

Entry Points 

$VRSYN. Register G2 contains a pointer to the register table entry 
from which synonyms are to be removed. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
Registers are the same as at entry. 

Program Interface - $VSAVE 

Entry Points 
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$VSAVE. Register G2 contains a pointer to the register table entry 
whose contents are to be stored into temporary storage • 

Exit conditions 

Control returns to the caller immediately following the invoking call. 
Registers are the same as at entry. 

Program Interface - $VFREE 

Entry Points 

$VFREE. Register G2 contains a pointer to the register table entry 
which is to be examined for possible freeing. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
Registers are the same as at entry. The condition code is set to zero 
if the register could not be freed; to nonzero if the register was 
freed. 



Routines Called 

$VDSAC 
$VGTMP 

Global Variables 



Storage Address Assembler 
Temporary Storage Management 



$ACODE 
$VRAMT 
$VRTYP 
R$FL 

R$FX 

R$SY 
$NCCUR 
Z Table 
A List 
C Table 
R Table 
O Table 



Pointer to Next Available Byte in Object Code Area 

Flag for Register Assignment 

Flag for Register Type Assignment 

Pointer to Floating-Point Register Portion of 

Register Table 

Pointer to Fixed-^Point Register Portion of Register 

Table 

Pointer to Head of Register Table Synonym List 

N List Current-Entry Pointer 

Triad Table 

Dictionary Attribute List 

Constant Table 

Register Table 

Operation Code Table 



Logic Diagram 

Chart 57 shows the detailed logic diagram for the Computational 
Register Assignment routine. 
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TITLE: REGISTER TABLE INITIALIZER <$VCLR) 

Prograin Definition 

Purpose and Usage 

The Register Table Initializer routine allocates space for the register 
table and establishes its initial values • 

Description 

Space for the register table is deducted from the free area (FREPTR) • 
Initial values for the fixed^ floating^ and adcon register portions 
of the table are moved into the proper entries • The synonym list is 
linked together • 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$VCLR. Negative value in register GO to cause initialization. A 
positive value will cause resetting of the table to its initial 
condition (without space procurement) . This feature is not presently 
used by the compiler. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 

Routines Called 

None 



Global Variables 

R$TBL 
R$FX 

R$FL 

R$AD 
R$ND 

R$SY 
FREPTR 

R Table 

Logic Diagram 



Pointer to Base of Register Table 

Pointer to Fixed-Point Register Portion of Register 

Table 

Pointer to Floating-Point Register Portion of 

Register Table 

Pointer to Adcon Register Portion of Register Table 

Pointer to End of the Linear Register Portion of 

Register Table 

Pointer to Head of Register Table Synonym List 

Pointer to First Available Word in Compiler's 

Variable Data Area 

Register Table 



Chart 58 shows the detailed logic diagram for the Register Table 
Initializer routine. 
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TITLE: STORAGE ADDRESS ASSEMBLER ($VDSAC) 

Program Definition 

Purpose and Usage 

The Storage Address Assembler routine converts the compiler's internal 
representation of a storage address (base code and displacement) into 
a machine address (base register number and twelve-bit displacement) . 
It generates any instructions needed to load adcon registers to 
accomplish the final addressing • 

Description 

The storage address to be converted may be one of four types: 

1. Directly addressed data 

2. Parameter data 

3. Subscripted address 

4. Literal displacement 

Directly addressed data may be allocated to one of five classes: 

1. Static and constants storage, 

2. Address constant storage. 

3. Object code storage. 

4. Automatic data storage for the block currently being compiled. 

5. Automatic data storage for a block encompassing the one currently 
being compiled. 

At object program execution, one register is permanently allocated 
to address the first page of static and constants storage; another ^ 
the first page of address constant storage; a third, the first page 
of automatic storage for the current block; and three more to address 
the first three pages of object code. Data allocated to these areas 
can be addressed with the appropriate permanent register; no 
supplementary instructions are needed. (For a description of object 
code storage layout, see Appendix E.) 

Data allocated to an address beyond the range of the permanent registers 
is addressed by generating an instruction which loads one of the 
volatile adcon registers with a displacement of 4095 from the permanent 
register. If this base is still insufficient, additional instructions 
are generated to increment the base by 4095 until the displacement 
of the data relative to the base is less than 4096. The assigned adcon 
register and the calculated displacement are then used as the assembled 
machine address. 

Data allocated to automatic storage in an encompassing block has no 
register permanently assigned for it. However, every block has a 
section reserved for its own use in the adcon storage area. If a block 
is active, one word of this area will contain the address of the base 
of the block's dynamic storage area. $VDSAC will generate instructions 
to load one of the volatile adcon registers from this word, thus 
obtaining a starting base in the encompassing block's DSA. From this 
point, calculations proceed as described above to determine an assembled 
machine address with a displacement less than 4095. Note that in 
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addressing the block information in the adcon area, extra instructions 
may be required to determine a suitable displacement for the "load* 
instruction. 

Parameter data is first processed as if it were directly addressed 
data in the adcon storage area. Having determined an assembled address 
for the data, $VDSAC then generates an instruction which loads one 
of the volatile adcon registers with the contents of the computed 
address. This technique introduces the extra level of indirectness 
required to address parameter data. The assembled machine address 
which is returned to the caller is then set to a displacement of zero 
relative to the assigned adcon register, A special flag is set by 
the caller to indicate whether $VDSAC is to interpret a storage address 
as parameter data, $VDSAC enters a special flag into the adcon register 
table entry for the volatile register, indicating that the register 
contains a parameter. This enables subsequent references to the same 
parameter to be optimized by using the register already loaded. 

Subscripted addresses are presented in two ways; the computed subscript 
is currently in a register, or the computed subscript has been stored 
in temporary storage. In addition, the subscripted address can be 
used in one of two ways: in an RX instruction, where two indexes are 
available? or in an SS instruction, where only one register can be 
used. 

The subscript value itself represents an increment to the value assigned 
to the base of the object code area. This base value is permanently 
loaded at object time in code-cover register 1 (register 6), 
Accordingly, $VDSAC must always combine the subscript value with the 
value of register 6 to assemble a valid machine address. If the 
subscript is in a register and the instruction is an RX format, the 
machine address is computed as a displacement of zero, base register 
of 6, and index register CXl field) of the assigned subscript register. 
If the subscript is in a register and the instruction is SS format, 
$VDSAC generates a "load address" into one of the volatile adcon 
registers, which combines register 6 and the subscript register. The 
machine address is then assembled as a displacement of zero relative 
to the adcon register. 

If the subscript is in temporary storage, regardless of instruction 
format, $VDSAC first computes the assembled address of the temporary 
storage as if it were directly addressed data. Then it assigns an 
adcon register, r, and generates the following code: 

LR r,6 

A r , temporary- storage 

The assembled machine address is then a displacement of zero relative 
to the adcon register. 

String data are indirectly addressed through a dope vector. The 
addressing problem is therefore almost identical to that of using a 
subscript which has been placed in temporary storage, except that the 
dope vector is used instead of temporary storage, and the assembled 
address computed for the dope vector may be a parameter and require 
the extra level of indirectness. However, logic used for processing 
string addresses is substantially the same as that used for stored 
subscripts • 

Occasionally, code generation computes in advance the literal value 
of the displacement needed in a machine address. This condition is 
indicated by a base code of zero on the storage address. In this case, 
$VDSAC merely returns the literal displacement with a base register 
of zero as the assembled machine address. 
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Errors Detected 

None 

Local Variables 

VDWORK Miscellaneous Temporary Storage 

Program Interface 

Entry Points 

$VDSAC. Parameter flag Cfroro $PTO table) in symbolic bit #PRAM in 
the low-order byte of register G3« Storage address (base code and 
displacement) in register G2. 

Base code indicates literal displac«nent; base code X'FF' indicates 
subscript in storagei base code X'FE" indicates subscript in register 
(register address in low-order byte of G2) • For base codes X'FF' and 
X'FE'r local variable VNOPC (in $VINSA) must contain the operation 
code for the current instruction (used to determine SS format) . For 
SS format instructions, local variable VNDVA (in $VINSA) must contain 
zero or the true base code assigned to the dope vector, since the 
incoming base code was set to 'FF* to trigger subscript addressing 
logic • 

Exit Conditions 

Assembled machine address in register GO in the form OOOXBDDD, where 
X is the index register, B the base register, and DDD the displacement. 
Register G2 points to the register table entry for the base register, B, 

Routines Called 

$VASGA Adcon Register Assignment 
$WBACK Segment Management 

Global Variables 

$ACODE Pointer to Next Available Byte in Object Code 

Area 
B$ACTV B Table Active-Entry Pointer 

B$CDRR B Table Current- Entry Pointer 

R$AD Pointer to Adcon Register Portion of Register 

Table 
B Table Block Information Table 

R Table Register Table 

O Table Operation Code Table 

Logic Diagram 

Chart 59 shows the detailed logic diagram for the Storage Address 
Assembler routine. 
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TITLE: TEMPORARY STORAGE MANAGEMENT {$VGTMP) 

Program Definition 

Purpose and Usage 

The Temporary Storage Management routine allocates an area for temporary 
storage at the proper level within the dynamic storage area of the 
current block, (For a description of DSA's^ see Appendix E,) 

Description 

The caller supplies the length of the area desired, which may be 4, 
B, 16, 32, or 255 bytes, and the number of the triad after which the 
temporary storage may be reused (last-use count) . Temporary storage 
is assigned separately for each block, in the dynamic storage area 
for that block? in the external procedure, temporary storage is assigned 
in the static and constants storage area. Within a block, temporary 
storage is further assigned a level whenever it is used to save values 
around DO-loops. In addition, temporary storage areas which are no 
longer required are reusable so that total storage requirements can 
be minimized, 

A temporary storage table (S table) is organized and maintained by 
block. For each block, entries in the table indicate the length, 
level, allocated address, and last-use count for all available temporary 
storage areas. When $VGTMP is called, this table is searched backwards 
from the most recently added entry. The search is conducted for a 
previously allocated temporary which is the same size as (or larger 
than) the requested area, at the requested level within the current 
block, and whose last- use count indicates that the temporary storage 
is free for reuse. The search is organized so that if multiple 
candidates meet the selection criteria, the one which is closest to 
the requested size (but not smaller) is used. The last-use count of 
the selected area is updated to the new value and the allocated address 
is returned to the caller. 

If no entries meet the selection criteria, a new temporary storage 
must be created. The DSA address for the required block is aligned 
to a word boundary if the requested length is 4 or to a doubleword 
boundary for any other length. It is incremented by the requested 
length. A new entry is added to the temporary storage table, and the 
length, allocated address, level, and requested last-use count are 
established. The allocated address is then returned to the caller. 

Errors Detected 

None 

Local Variables 

VTCAND Used to hold table pointer during determination of best 
matching length. 

Program Interface 

Entry Points 

$VGTMP. Length of desired area in register GO. May be 4, 8, 16, 32, 
or 255. When the length given is 255, 256 bytes are actually reserved. 
The last- use count, which controls when the temporary area can be 
reused, is supplied in register G7, The requested level number is 
supplied in $TEMPN and is normally except for register saving around 
DO- loops. 
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Exit Condi'tioBS 

Control returns to the caller iiamediately following the invoking call. 
Register G2 contains the base code and displacement of the allocated 
temporary storage. 

Routines Called 

$WBACK Segment Management 
$WEXP Segment Management 

Global Variables 



$TEMPN 
$NCCUR 
B$ACTV 
S$ACTV 
S$CURR 
S$TAIL 
B Table 
S Table 



Temporary Storage Level Number 
N List Current-Entry Pointer 
B Table Active-Entry Pointer 
S Table Active-Entry Pointer 
S Table Current- Entry Pointer 
S Table End-of-Table Pointer 
Block Information Table 
Temporary Storage Table 



Logic Diagram 

Chart 60 shows the detailed logic diagram for the Temporary Storage 
Management routine. 
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TITLE: INSTRUCTION ASSEMBLER ($VINSA) 

Program Definition 

Purpose and Usage 

The Instruction Assembler routine produces machine-language (object) 
code from a series of symbolic instructions which have been selected 
by the Triad Code Generator ($TCODE). Each set of symbolic instructions 
represents the coding necessary for the processing of a triad. 

Description 

The symbolic instructions selected by the Triad Code Generator represent 
in a general way the coding needed to process a triad. It is the 
function of the Instruction Assembler to interpret, modify, and in 
some cases optimize the generalized symbolic coding into the specific 
machine-language instructions required for each case. By maintaining 
the symbolic instructions at a generalized level, the Triad Code 
Generator minimizes both the space required for the symbolic instruction 
table (M table) and the number of processing paths needed for code 
generation. 

Symbolic Instructions 

A symbolic instruction consists of a symbolic operation code and zero, 
two, or four symbolic operands. At entry, the Instruction Assembler 
receives a pointer to the first symbolic instruction to be processed; 
the Instruction Assembler proceeds through the table, generating 
machine- language coding for each instruction encountered until it finds 
a special operation which signals the end of the instruction sequence. 

Symbolic Operation Codes 

The first field of a symbolic instruction is a symbolic operation code, 
which is a simple numerical index into a table of symbolic operations. 
Each symbolic operation contains a flag field, an effect code, and 
an operation code. The symbolic operations are divisible into three 
types: unmodifiable machine codes, modifiable machine codes, and 
pseudo-operations . 

Unmodifiable Machine Codes : If the symbolic operation is an 
unmodifiable machine code, the Instruction Assembler uses the 
hexadecimal operation code found in the table as the operation code 
of the machine instruction being generated. 

Modifiable Machine Codes : A modifiable operation may be modified in 
either or both of two ways, as indicated by settings of bits in the 
flag field of the operation code table (O table) entry. First, the 
operation may be modified for fixed-point or floating-point mode (either 
long or short). Secondly, it may be modified from the RX (storage- 
register) format to the RR (register-register) format. Modifiable 
machine codes are kept in the table in double-precision floating-point 
form. The symmetrical structure of System/360 machine codes makes 
it possible to convert the operation to the required form by the 
addition or subtraction of simple constants. 

When modifying for type, the Instruction Assembler determines whether 
the mode shall be long-float, short-float, or fixed by testing the 
attribute codes in the triad for which code is being generated. (The 
location of the triad is supplied by the Triad Code Generator at entry 
to the Instruction Assembler.) 

When modifying for format, the Instruction Assembler assumes that the 
code generation process keeps track of what the contents of machine 
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registers will be at execution time. Each constant ^ variable ,r snd 
intermediate result has associated with it a field which indicates 
whether it is (at that point in the compilation) in a register and 
which register it is in. Whenever the machine code is modifiable for 
RR format and the second (storage) operand of the instruction has a 
register associated with it, the Instruction Assembler modifies the 
operation code to RR format. If the resulting instruction is one which 
loads a register with itself without change of sign, generation of 
the instruction is suppressed. 

Pseudo-Operations ; Certain instruction sequences are too specifically 
machine-oriented or too complex to represent conveniently in the 
symbolic instruction tables. For these cases , pseudo-operations have 
been defined by convention between the Triad Code Generator and the 
Instruction Assembler. The symbolic operands of the pseudo-operations 
are defined to fit the needs of each case and cause the Instruction 
Assembler to generate specially tailored coding. Detailed descriptions 
of pseudo-operations are given later in this discussion under "Pseudo- 
Operation Logic". 

Register Effects 

It is the responsibility of the Instruction Assembler to maintain, 
during compilation, a table which indicates the contents of the general 
machine registers as they will be during execution of the object 
program. The availability of this information enables both the Triad 
Code Generator and the Instruction Assembler to select optimum sequences 
of instructions when generating code for a given triad. To assist 
the Instruction Assembler in the maintenance of the register table, 
each symbolic operation contains a field which indicates the effect 
of the operation upon the register designated in the Rl field of the 
instruction. The effects are: 

Load 

Destroy 

Multiply 

Divide 

Store 

Destroy all register synonyms 

Change sign 

No effect 

A register synonym results when a variable, intermediate result, or 
constant is assigned to a variable. Thus, for the statement: 

A = B + C 

a given register will contain the intermediate result B + C. When 
this result is stored into A, the same register will then also represent 
the value of A. In subsequent instructions, the register may be used 
in lieu of a storage reference to A, with resulting optimization of 
the code. The variable A is considered a synonym of the register until 
such time as the register contents are changed. 

The same register may have multiple synonyms. In the sequence of 
statements : 

A = B + C 
D = A 

both A and D are synonyms of the register containing the intermediate 
result B ♦ C. 
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It is the function of the Instruction Assembler to add and remove 
synonyms from the register table, as indicated by the ^effect" code 
of the instructions being generated. 

When a synonym is being added, a pointer to the synonymous constant, 
identifier, or triad is chained to the principal register table entry. 
The address of the register is placed in a field in the triad, constant 
table, or identifier dictionary attribute node. When a synonym is 
being removed, the pointer is detached from the register table chain. 
The register address field in the entry pointed to is set to zero. 
Similar techniques are used to maintain the principal contents of the 
register. In general, triads which represent intermediate results 
are used as the principal register entry, and identifiers and constants 
are maintained as synonyms of the principal entry. 

The various effects are processed as follows: 

Load: The previous principal content of the register and all its 
synonyms are removed. The triad, constant, or identifier which 
forms the second operand of the current instruction is attached 
to the register as a synonym. (The principal content of the 
register is not set until a result pseudo-operation occurs; see 
below. ) 

Destroy : The principal contents and all synonyms are removed from 
the register. No new information is added. 

Multiply : A fixed-point multiply operation requires a pair of 
registers. The useful portion of the resulting product is in the 
odd-n\3mbered register. However, any overflow resulting from the 
operation must be detectable. Accordingly, a multiply effect 
causes the Instruction Assembler to generate a double- register 
left shift of 32, and to remove all synonyms from the even-numbered 
register, since the multiplication destroys the previous contents. 

Divide : A fixed-point divide operation requires a pair of registers 
and leaves the quotient in the odd- numbered register. A divide 
result accordingly causes synonyms to be removed from both 
registers; the double- register pair is flagged as now consisting 
of two single, independent registers, and pertinent information 
is transferred from the even to the odd register table entry. 
Any symbolic assignment (see "Symbolic Operands," below) is 
associated with the odd register. Floating-point multiply and 
divide operations are handled as if they had a simple destructive 
effect, since the double register considerations which affect 
fixed-point operations do not apply. 

Store : A store effect causes the removal of any synonyms previously 
associated with the register; the triad, constant, or identifier 
which forms the second operand of the current instruction is 
attached to the register as a new synonym. 

Destroy All Register Synonyms : At certain points in the object 
code, the contents of registers during execution become 
unpredictable to the compiler. This may happen where a label 
(either programmer- or compiler-generated) is defined, indicating 
a point where object- time control may be transferred, with resulting 
uncertainty of register contents; around calls to the object-time 
library, where certain registers are volatile; and at the end of 
program blocks, where the subsequent instructions belong to a 
different block with different register usages. Synonyms are 
removed from all registers at such points to insure correct code 
generation. A special effect code is used to indicate this 
condition. 
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Change Sign : A register may be ccsnplemented in order to effect 
an assignment. In this case^ any synonyms of the register also 
change sign. For example: 

A = B ♦ C 
D = -A 
E = A 

The register synonym for A may be used for the third assignment 
statement y but a record must be made of the fact that its sign 
was changed at the second statement. Triads and identifier 
attribute nodes have a field which indicates the sign of their 
synonym registers. A change-sign effect causes the setting of 
this flag to be reversed. Signs are not associated with constants; 
therefore a change-sign effect applied to a constant synonym causes 
the synonym to be removed. 

No Effect ; To increase the efficiency of the compiler^ many 
intermediate operations in an instruction sequence are flagged 
as having no effect^ since the intermediate effects are of no 
consequence in optimizing the generated code. By indicating no 
effect y unnecessary manipulation of the register table is avoided. 

Indexable Operations 

A flag bit in the operation code table (O table) indicates whether 
the operation is to be indexed. Symbolic instructions which use 
unindexed operation codes have two operands; symbolic instructions 
which use indexable operation codes have four operands. The third 
operand is a symbolic representation of the value to be placed in the 
XI field of the generated instruction. The fourth operand represents 
the value to be placed in the Bl field of the generated instruction. 

Symbolic Operands 

A symbolic operand used in a symbolic instruction may be one of the 
following types: 

Symbolic Computational Register 

Symbolic Adcon Register 

Absolute Register 

Data Parameter 

Imaginary Address of Data Parameter 

Scratch Storage 

Constant 

Literal Value 

Local Label Reference 

Null 

Symbolic Computational Register ; To preserve generality, symbolic 
instruction sequences which perform computational arithmetic refer 
to registers symbolically. It is the responsibility of the Instruction 
Assembler to assign absolute registers to correspond to the symbolic 
ones. To accomplish this, the Instruction Assembler maintains a 
symbolic computational register table. This table is reset upon initial 
entry to the Instruction Assembler. The first reference to a symbolic 
computational register causes the Instruction Assembler to look up 
the corresponding entry in the table. Finding that no assignment has 
been made, the Instruction Assembler calls the Computational Register 
Assignment routine C$VASGC> to obtain an absolute register Cor pair 
of registers, if required) and associates the absolute assignment with 
the symbolic register number. Thereafter, any reference to a given 
symbolic register always obtains the associated absolute register. 
The assignment is maintained until the end of the current symbolic 
instruction sequence. Upon reentry to the Instruction Assembler, new 
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assignments will be made. The algorithm for determining which of the 
six computational registers to use is part of the Computational Register 
Assignment routine ($VASGC). 

Symbolic Adcon Register : Symbolic instruction sequences which compute 
subscripts^ develop arguments for subroutine calls, etc., require the 
use of adcon registers. For generality, these registers are referred 
to symbolically. The Instruction Assembler maintains a symbolic adcon 
register table similar in use and function to the one described above 
for computational registers. Because the object program must be 
instantly relocatable, computational and adcon registers cannot be 
interchanged. They require separate tables and separate symbolic 
notation. The Adcon Register Assignment routine C$VASGA) is used to 
obtain the required adcon register number. 

Absolute Register ; A symbolic operand may specify directly which 
register to use by presenting the Instruction Assembler with an absolute 
register address. This address is actually the displacement from the 
base of the register table (maintained in R$TBL) to the desired register 
entry. For communication between routines, register (table entry) 
addresses are used rather than the actual numbers of the registers. 
This allows a degree of flexibility in the assignment of the actual 
register numbers within the table and permits the convention that a 
register address of zero means that no register is assigned or 
available. 

Data Parameter : A symbolic operand which represents an identifier, 
source-program constant, or intermediate result (triad) is presented 
to the Instruction Assembler as a data parameter operand. The Triad 
Code Generator ($TCODE) maintains a small data parameter table ($PTO) 
into which it places pertinent information regarding the data to be 
processed. The symbolic operand indicates which table entry the 
Instruction Assembler is to use in forming the D2 or R2 field of the 
current instruction. (The format and use of specific entries in this 
table are explained under "Compiler Variables" in Appendix A.) 

Imaginary Address of Data Parameter : A symbolic operand may indicate 
the imaginary address of a data parameter table entry. In this case, 
the Instruction Assembler uses the data parameter table, but for RX 
instructions the storage address given in the table is incremented 
by an appropriate amount to obtain the imaginary portion of the data, 
and for RR instructions the register adjacent to the one specified 
in the table is used. 

Scratch Storage ; A symbolic operand may specify scratch storage. 
For each call to the Instruction Assembler, the first reference to 
scratch storage causes the Instruction Assembler to call the Temporary 
Storage Management routine ($V(3TMP) to obtain a 32-byte allocation 
of temporary storage. This area is logically subdivided into two areas 
of 16 bytes each. The symbolic operand indicates by codes of 0, 2, 
4, and 6 that the Instruction Assembler is to address the real or 
imaginary part of the first or second areas, respectively. In general, 
scratch storage is used to hold intermediate results of in-line data 
conversion. The same scratch storage area is maintained until the 
end of the current instruction sequence, at which point it is available 
for other use. 

Constant; Code generation, especially in-line data conversion, may 
require constants which were not written as part of the original source 
program. When a symbolic operand specifies such a constant, the 
Instruction Assembler locates the hexadecimal text of the constant 
in the operation code table (O table) and calls the Constant Processor 
routine ($NCON). This routine assigns an address to the constant or 
returns its allocated address if the constant is already part of the 
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object program. The Instruction Assembler then uses the address in 
constructing the current instruction. 

Literal: A symbolic operand may specify a literal value (less than 
256) to be placed directly into the generated instruction. Literal 
values may be given for either the register or storage operands of 
the instruction. They are used for condition codes, object-time 
displacements <r and other cases where the Triad Code Generator knows 
in advance the absolute value required in the generated instruction. 

Local Label Reference ; Instruction sequences which perform comparisons 
and tests need the facility to branch to selected instructions within 
the sequence. Although these branches are quite local , the precise 
location of the branch address cannot be determined in advance , since 
the Instruction Assembler may introduce an unpredictable number of 
addressing instructions into the generated code. (See the discussion 
of addressing, below.) Hence, each instruction sequence may define 
up to ten local symbolic labels and may make one (and only one) 
reference to each. 

The point at which a label is to be defined is specified with a DEF 
pseudo-operation; a reference to the label is indicated by a special 
symbolic operand. The Instruction Assembler maintains a symbolic label 
table, which is reset at each entry to the Instruction Assembler. 
If the label definition occurs before its reference, the code address 
of the definition- point is entered into the table. When the subsequent 
reference to the label is encountered, the address can be assembled 
and placed in the generated instruction at once. If the label is 
referred to before it is defined (which is the usual case) , the location 
of the reference is placed in the table, and the address portion of 
the generated instruction is set to zero. Then when the definition 
occurs, the correct address is assembled and inserted in the generated 
code in the open space reserved for it at the point of reference. 

Null ; Symbolic instructions must contain either zero, two, or four 
operands so that the Instruction Assembler can scan the table easily. 
Since some pseudo-operations and indexable operations use an odd number 
of operands, a null operand code is employed to fill the unused space 
in the symbolic instruction table. 

General Processing Logic 

At initial entry to the Instruction Assembler, the local symbolic label 
and symbolic register assignment tables are cleared. An operation- 
code modifier is determined by inspecting the attribute codes in the 
incoming triad. Register assignments and the modifier value are set 
once for the entire instruction sequence. 

The components of the symbolic instruction are moved into fixed work 
areas to simplify addressing them, and the operation code, flags, and 
register effect are established. If the operation indicates an 
indexable code, the third and fourth operands are moved from the 
symbolic instruction. A pointer is updated to the next symbolic 
instruction. If indicated, modification of the operation code is 
performed. On the basis of the results, a basic register-type flag 
is set for fixed or floating. 

The first and second symbolic operands are inspected. If they are 
data parameter table entries, the information from the data parameter 
table is moved into fixed areas and anqplified as necessary to simplify 
further processing. 

At this point, if the instruction is a pseudo-operation, control passes 
to the appropriate pseudo-operation generator; when all instructions 
have been generated for the particular pseudo-operation, control returns 
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to the beginning of the processing cycle* The next symbolic instruction 
is procured. If the instruction is a machine operation^ modification 
for register format is performed^ and the resulting code is tested. 
Control then passes to one of four paths ^ depending on whether the 
instruction format is RR, RX, RS(SI)^ or SS. These paths use two major 
subroutines y one of which prepares a machine register operand (for 
the Rl and R2 fields of the instruction) ^ using either the first or 
second symbolic operand as input. The other routine prepares a storage 
operand (B2 and D2 fields) using the second symbolic operand and calls 
the register assignment routines ($VASGC and $VASGA) as required to 
establish symbolic assignments. The storage operand routine calls 
the Storage Address Assembler routine C$VDSAC) to obtain assembled 
addresses of source program constants and variables and the Temporary 
Storage Management routine C$VGTMP) to prepare compiler-generated 
constant addresses. It also prepares literal operands and local label 
references. 

When all components of the machine instruction have been prepared, 
the object code is generated directly in the user*s area of memory. 
After the code is generated, control converges into two paths; one 
path determines the register effects for register-to-^register 
instructions; the other, for instructions involving main storage 
locations. After the appropriate action is taken to maintain the 
register tables, control returns to the beginning of the cycle. The 
next symbolic instruction is then procured, and the cycle iterates 
until terminated by a result pseudo-operation. 

Addressing 

Storage addresses must be assembled as a base register and a 
displacement value not exceeding ^095. Internally in the compiler, 
the storage addresses of constants, variables, temporary storage, etc., 
are maintained in the form of a base code which represents the class 
of storage (address, static, dynamic, etc.) and the displacement 
relative to the base allocated to that data. 

In the object code, certain registers are assigned permanent base 
values to facilitate the addressing problem. Three registers address 
the first three pages of object code; one register addresses the base 
of the static and constants storage area; another, the address constant 
area; and another, the dynamic storage area for the block currently 
being executed. Four other address registers are volatile. 

Since data may be allocated displacements which exceed that addressable 
by the permanent base register for that storage class, supplementary 
instructions may be needed to load one of the volatile address registers 
with a base value sufficient to enable the desired data to be addressed. 
This function is performed by the Storage Address Assembler routine 
($VDSAC). In general, the Instruction Assembler presents the base 
code and displacement representing the storage address of an operand 
to $VDSAC, which returns an assembled half word containing a base 
register number and appropriate displacement that the Instruction 
Assembler can then insert as required into the machine instruction 
being generated. Any supplementary instructions necessary to set the 
base register contents are generated by $VDSAC. The total number of 
generated instructions depends upon the allocation e^nd addressability 
of the data involved. 

In addition, certain classes of data present special addressing 
problems. Parameters used by CALL/3 60- OS PL/I subroutines are passed 
as addresses. Hence, references to parameter data require an extra 
level of indirectness in the addressing. A special flag associated 
with the data indicates whether it is a parameter. If it is, $VDSAC 
generates the coding necessary to accomplish the indirect addressing. 
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Subscripted data require an extra index to achieve the correct 
addressing • For RX format instructions, the extra index may be 
specified directly in the XI field of the instruction. For SS 
instructions, $VDSAC generates coding to combine the base value and 
index value into a single register, since these instructions can only 
be singly indexed. However, SS instructions are generally generated 
to manipulate string-type data, which is addressed indirectly through 
a dope vector • Accordingly, when processing SS instructions, the 
Instruction Assembler tests the operand type. If it is a constant 
or already subscripted, normal direct addressing is used. If it is 
string-type data, the InstriKJtion Assembler sets flags so $VDSAC will 
generate the index-combining instructions used for subscripts. 

Pseudo-Operation Logic 

Load Multiplier : If the operation is fixed-point, this pseudo-operation 
assigns a double register pair for the register operand and loads the 
storage operand into the odd- numbered register. If the second operand 
is already in a register, an attempt is made to use one of the adjacent 
registers, if possible, to form the register-pair. 

Load Dividend ; If the operation is fixed-point, this pseudo-operation 
assigns a double register pair for the register operand, loads the 
storage operand into the even register to establish the sign, and 
shifts the even register into the odd register to establish the proper 
magnitude. If the second operand is already in a register, an attempt 
is made to use one of the adjacent registers to form the register-pair. 

Load Complex ; Two registers (either fixed or floating, depending on 
type) are assigned and loaded from the real and imaginary parts of 
the storage operand, respectively. If the storage operand is already 
in registers, the load instruction is suppressed. 

Store Complex ; The two registers assigned to the register operand are 
stored into the real and imaginary parts of the storage operand, 
re specti vely . 

Transfer ; To save space in the symbolic instruction table, common 
instructions are shared between instruction sequences. The transfer 
pseudo-operation directs the Instruction Assembler to continue its 
processing at the symbolic instruction pointed to by the operand of 
the transfer. 

Save ; The register operand is saved in temporary storage, and the data 
parameter table entry given as the second operand is modified to contain 
the temporary storage address for the remainder of the current 
instruction sequence. 

Define Label ; The current object code location counter is entered in 
the local label table against the symbolic number of the label. If 
a reference was previously made to this label, the assembled value 
of the label is placed in the storage operand of the referencing 
instruction. 

Load Multiple ; A pair of registers is assigned to the register operand, 
and the storage operand is loaded into them with an LM instruction. 

Store Multiple ; The pair of registers assigned to the register operand 
is stored into the storage operand with an STM instruction.. 

Compute Subscript Address ; The pseudo-operation is given a subscript 
displacement, which Hjay be either in a register or in storage and may 
be either positive or negative,. A subscript displacement is the 
computed displacement of an array element from the virtual origin of 
an array. (See "Dope Vectors" in Appendix E for a description of the 
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computation of an array eleroent address.) It is also gi^en an array 
virtual origin, which may be either in a register or in storage. The 
pseudo-operation selects the optimum instruction sequence to load the 
subscript displacement positively into a fixed register other than 
general register zero (which cannot be used to index) and add the 
contents of the array virtual origin to it. In the usual case, the 
subscript displacement is positively in a register (which is sometimes 
register zero) and the array address is in storage. The instructions 
then generated are either: 

A r, array 
or 

LR r^O 

A r, array 

In processing the result of this operation, special flags are set back 
into the associated triad and register table entry to indicate that 
the result is a subscript address. The flags cause future storage 
references to the subscripted data to be double- indexed in order to 
achieve the desired subscripting. 

Assign Double Register ; This pseudo-operation causes a double register 
pair to be assigned to the symbolic computational register specified 
in the first operand. 

BEGIN or END Block ; The table entry for the adcon register which is 
assigned to address the block's dynamic storage area is updated to 
indicate that the register now addresses the base of the particular 
block being processed. 

Begin DO s The level of temporary storage assignment is increased by 
one. Code is generated to store all registers containing active 
intermediate results into temporary storage at the new level. 

End DO : The level of temporary storage assignment is reduced by one. 

Save Volatile Registers ; This pseudo-c^eration is used prior to the 
generation of calls to object-program library routines. It causes 
the generation of code to store fixed registers and 1 and floating 
registers and 2 (registers which are volatile across library calls) 
into temporary storage if they contain active intermediate results. 

Forward Compiler-Generated Branch : Nested procedures, THEN clauses, 
DO-loops, etc., require the compiler to generate a forward branch. 
Since the address of the branch point cannot be computed in advance, 
this pseudo-operation reserves eight bytes of srequire the compiler 
torage for the branch instruction to be inserted later. The branch 
point may not be addressable by any of the three registers permanently 
assigned to cover the object code. In this case, the branch must be 
resolved by loading an adcon from a table in the adcon area and then 
branching. Hence, two instructions may be needed when the branch is 
resolved, and an adcon register will be required. Accordingly, when 
reserving the space, an adcon register is assigned and its number is 
stored in the reserved area along with the condition code to be used 
in the final branch. The reserved area thus has the foimat: 

DC AL4<03 

BC condition, 1 0, adconreg) 

When multiple branches are made to the same point, a chain of pointers 
is linked through the first word of each reserved area. When the 
definition of the branch point occurs, all references to it can be 
resolved by following the chain. 
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Resolve Coropiler-Generated Branch ; This psetido- operation assembles 
the address of the current code location counter. This operation may 
involve generating a load instruction if the code location is not 
addressable by any of the three permanently assigned cover registers. 
The assanbled address (and load instriaction, if needed) is then placed 
in all the forward compiler-generated branches which refer to the 
current location. The references are found by following a chain of 
pointers established in the reserved areas (see "Forward Compiler- 
Generated Branch* above) . The layout of the reserved areas after 
resolution (if no additional cover is needed) is as follows: 

BC condition ybranch-point-displ ( 0^ codecover ) 
BC condition, branch-point-displ (0, codecover) 

or, if the branch point is not directly addressable, 

L adconreg, code-cover- table (0, adconcover) 
BC condition, branch-point-displ CO,adconreg) 

Remainder ; This pseudo-operation is given two symbolic registers as 
its operands. The even- numbered register adjacent to the one which 
is currently assigned to the second operand is assigned to the first 
operand. This operation enables the register containing the remainder 
of a previous fixed-point division to be recovered. 

Load Index Register : A flag is set to prevent the Computational Register 
Assignment routine ($VASGC) from assigning absolute register zero; 
the operation code is set for a fixed-point load, and processing 
continues as for a machine operation. This insures that the storage 
operand will be loaded into a register capable of indexing. 

Source Label Pseudo-Operations : The Instruction Assembler has the 
responsibility for the final resolution of references to source program 
labels. These references are of three kinds: assignment statements, 
branches (GO TO statements), and linkages to remote FORMAT statements. 
Further, in the first two cases, the references may be either to a 
label within the current block (intrablock branch) or to one in an 
encompassing block (interblock branch). Remote FORMAT statements must 
be within the current block. 

For assignments and interblock branches, information about the label 
is conveyed to the object- program library routines by a special two- 
word constant which has the following format: 

2 «* 6 8 Byte 

J. ^ 

1 Displacement of Branch Point | Displacement | 
I Within Code Area j Block Adcon j 
I I Area Within j 
I I Adcon Area | 

L ^ J 

The Instruction Assembler builds such constants as required and causes 
them to be added to the object progrcun by calling the Constant Processor 
($NCON). The processing performed by the source label pseudo-operations 
must take into account the fact that the location allocated for this 
constant may not be directly addressable by the register which covers 
the object-program constant area, and that an extra load instruction 
may be required whenever a reference is made to the constant. An 
additional consideration arises in the following case: 
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A: PRCX:; 

DCL M LABEL; 
B: PROC? 



C: <30 TO M; 



END B; 
END A; 

At statement C above r it is impossible for the compiler to know whether 
the identifier M to be used in resolving the GO TO statement is the 
statement-label variable declared in block A or the label of some 
statement internal to block B, To insure correct resolution^ the 
Instruction Assembler must determine whether the operand of a GO TO 
is potentially a statement- label variable in another block. If so^ 
the Instruction Assembler must generate the code necessary to address 
ity since the allocated address may not be directly coverable. In 
the final resolution, the addressing instructions may not be needed 
if the identifier is a label within the current block. However, this 
case is not determinable in advance. 

The processing performed for the various conditions may be summarized 
as follows: 

Backward Assignment : The statement- label constant is formed, 
allocated, and addressed. A doubleword load and store is then 
generated: 

LD reg, constant 

STD reg , label- variable 

Backward Intrablock Branch ; To a statement- label variable: The 
location allocated to the statement- label constant is addressed 
and assembled. A conditional branch using the complement of the 
desired condition is generated to branch around coding which is 
then generated to call the GO TO Interpreter (IHESAF), using the 
address of the statement-label constant as a parameter. 

To a statement-label constant: The address allocated to the label 
is obtained and assembled; a conditional branch instruction is 
generated using the assembled address. 

Backward Interblock Branch : The statement- label constant is formed 
and allocated. Processing then proceeds as for a backward 
intrablock branch to a statement- label variable. 

Forward Assignment : If the rightmost operand is a potential 
statement- label variable, its address is assembled, and any 
necessary cover instructions are generated. The address of the 
leftmost operand is assembled, and any necessary cover instructions 
for it are generated. A twelve-byte area is then reserved in the 
object code. A floating-point register is assigned, and operation 
codes for LD and STD are generated for it. A flag of zero is set 
as the first byte of the area (to distinguish assignment from GO 
TO) , and a chained pointer is established in the remainder of the 
first word to link together all references to a given label. The 
completed area has the format: 
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taddressing instructions for right-operand! 

(addressing instructions for left-operand] 

DC ALl (block number) 

DC AL3 (pointer list) 

LD reg^ right-operand or LD reg^O 

STD r eg ^ 1 eft-operand 

Resolve Forward Assignment ; At the end of a blocks those 
assignments for which definitions are available are completed • 
For the case where a tentative definition of the right operand 
was the correct one^ the resolved instructions are: 

NOP 

LD reg, right-operand 

STD reg , left-operand 

For the case where no tentative definition was made, or where the 
tentative definition was overridden by a later declaration^ the 
necessary statement- label constant is constructed, allocated, and 
addressed. Depending on whether or not the constant can be directly 
addressed, the resolved area has the format: 

NOP 

LD reg , label-constant 

STD reg , left-operand 
or 

L 13 , cover-constant (0, adconarea) 

LD reg, label-constant 

STD r eg , 1 eft-operand 

Register 13 is inhibited from assignment during the construction 
of other storage addresses in the sequence so that it can be used, 
if needed, to obtain cover for the constant when the sequence is 
resolved. 

Forward Branch ; If the operand is a potential statement- label 
variable, its address is assembled, and any necessary cover 
instructions are generated. Next, a conditional branch using the 
complement of the desired condition code is generated to branch 
around a m-byte area which is then reserved. Into the reserved 
area are placed the tentatively assembled operand address, if any, 
a flag byte of 1 (to distinguish GO TO from assignment), the current 
block number, and a linked pointer (to chain together all references 
to a given label). The area has the format: 

[addressing instructions for operand, if needed] 

(conditional branch to ♦+14, if needed] 

DC ALl(l) 

DC AL3 (pointer link) 

DC ALl (current block number) 

DC ALl (reserve block number if potential statement-label 

variable) 
DC AL2 (assembled operand address) 

DS 6C 

Resolve Forward Intrablock Branch : At the end of a block, forward 
branches to those labels which have been defined are resolved. 
An intrablock branch is indicated when the block number that was 
stored in the reserved area matches that of the block being 
terminated. Depending upon whether or not the branch point is 
directly addressable, the resolved area has the format: 
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BC 15^branch-point-aispl(0,codecover) 

JK)P 

NOF 

NOPR 

or 

L 13,code-cover-"adcoii-displC0,adcoiiarea) 

BC ISybranch-point-displ (0,13) 

NOP 

NOPR 

Resolve Forward In-ber block Branch ; An interblock branch is 
indicated when the block number that was stored in the reserved 
area does not match the number of the block being terminated • 
In this case, the GO TO Interpreter must be called.. If the operand 
was an actual or potential statement-label variable, its assembled 
address is already positioned in the reserved area.. If it was 
not, a statement-label constant is constructed and allocated, and 
its address is assembled. Depending upon whether or not the 
constant is directly addressable, the resolved area has the format: 

NOP 

I, 13, label-constant-dL spl C 0, constant-area) 

It IS, =A ( go-to- interpre t er ) 

BM^ 14,15 

or 

I» 13, constant- cover-di spl CO, adconar ea ) 

L 13, label-constant-di spl (0,13) 

I* 15, -A (go-to-interpreter) 

BALR 1«»,15 

Backward Format List Linkage ; To a statement- label constant; 
Processing is the same as for a backward intrablock branch, except 
that the operation generated is a BAL instruction, using register 
14 as the return address register. 

To a statement-label variable: The following coding is generated: 

LR 15,6 Place code base in R15 

A 15, label variable Compute branch address 
BALR 14,15 Link to remote format 

Forward Format List Linkage ; An area is reserved as for a forward 
branch, with a special flag byte of 2 to indicate a format list 
reference. Since format list linkages are always iMiconditional , 
no conditional branch coding is generated for either forward or 
backward references. 

Resolve Forward Format List Linkage ; The resolution is the same 

as that for an intrablock branch, except that the branch instruction 

is a BAL using register 14 as the return address register. 

Result Pseudo-Operations ; Result pseudo-operations terminate the 
sequence of symbolic instructions and cause relevant information 
to be posted in the register table and in the triad for which code 
was generated. They are principally used to indicate the 
disposition and type of intermediate arithmetic computations. 

The various result types are; 
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Real ; A pointer to the current triad is placed in the register 
table entry for the register assigned to symbolic computational 
register zero, and the address of this register is placed in 
the register- address field of the triad. The complex result 
bit in the register table entry is reset. The long/short , 
fixed/float result bits are left as set by the effects of the 
various individual generated instructions. The storage-sign 
bit is transferred to the register-sign bit position in the 
triad y and the last- use count field of the triad is transferred 
to the register table, to be used in determining when the 
register will next be free for reassignment. 

Real^ Short : The effect is the same as real, except that the 
short precision result bit is set in the register result field. 

Real^ Long ; The effect is the same as real, except that the 
long precision result bit is set in the register result field. 

Complex ; The effect is the saioe as real, except that the complex 
result bit is set in the register result field. 

Complex ^ Short ; The effect is the same as complex, except that 
the short precision result bit is set in the register result 
field. 

Complex, Long ; The effect is the same as complex, except that 
the long precision result bit is set in the register result 
field. 

Mask Type ; The effect is the same as real, except that the 
result bits in the register result field for long/short, 
fixed/float, and real/complex are set from the corresponding 
positions in the triad type mask. 

Real Part ; Symbolic computatioaal register zero represents 
a double register pair containing complex results, of which 
only the real half is to be retained. The odd- numbered register 
is freed, both registers are marked as single usage, and synonyms 
are removed from the even- numbered register. The remainder 
of the effect is then as described above for real. 

Imaginary Part ; Symbolic computational register zero represents 
a double register pair containing complex results, of which 
only the imaginary half is to be retained. The even- numbered 
register is freed and its synonyms are removed. Both registers 
are marked as single usage, and the odd- numbered register is 
used as the result register for the remainder of the processing, 
which is the same as that described above for real. 

Null ; Non- arithmetic instruction sequences generally terminate 
with a null result, which stops the generation of instructions 
without changing either the triad or the register table. 

Errors Detected 

None 

Local Variables 

W$CVN C register save area 

W$GVN G register save area 

W$PVN P register save area 

VNEFF Register effect code multiplied by 4 (halfword) 

VNINST Symbolic operation code from symbolic instruction (1 byte) 
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VNMOD 

VNOPC 

VNOPSV 

VNOPl 

VNOPIC 

VHOPIG 

VNOPIK 

VNOPIL 

VNOPIR 

VNOPIS 

VN0P2 

VN0P2C 

VNOP2G 

VN0P2K 

VNOP2L 

VN0P2R 

VNOP2S 

VN0P3 

VN0P4 

VBSAVE 

VNSINS 

VNSSTG 

VNTOPl 

VNTOP2 

VNTOP3 

VNTOPL 

VNWORK 

$VLBLT 

$VLS 

$VSART 

$VSCRT 



Modifier for operation mode (half word) ; = long floaty 
X'OOIO' = short floaty X'OOFO* = fixed 
Machine operation code of pseudo- operation number 
(fullword, value in third byte) 
Save area for operand infonciation, used during 
construction of SS instructions C4 words) 
Code for symbolic operand 1 (byte) 
Storage address for operand 1 (word) 
Register table displacement for operand 1 (byte) 
Encoded syntactic token for operand 1 (word) 
Length of operand 1 (half word) 

Pointer to register assigned to operand 1 (word) 
Parameter and sign bits for operand 1 (byte) 
Code for symbolic operand 2 (byte) 
Storage address for operand 2 (word) 
Register table displacement for operand 2 (byte) 
Encoded syntactic token for operand 2 (word) 
Length of operand 2 (half word) 

Pointer to register assigned to operand 2 (word) 
Parameter and sign bits for operand 2 (byte) 
Symbolic operand 3 (index register) (byte) 
Symbolic operand 4 (base register) (byte) 
Save area for register CI on internal subroutine 
linkages (word) 

Address of next symbolic instruction to be processed 
(word) 

Temporary storage address allocated for scratch usage 
(word) 

Symbolic code for operand 1 type (byte) 
Symbolic code for operand 2 type (byte) 
Symbolic code for operand 3 type (byte) 
Symbolic code for operand 4 type (byte) 
Miscellaneous work area (2 words) 
Symbolic label table (6^ bytes) 
Flag for enabling listings (half word) 
Symbolic adcon register table (9 words) 
Symbolic computational register table (9 words) 



Program Interface 

Entry Points 

$VINSA. Register P5 addresses the triad for which code is to be 
generated; register G7 points to the first symbolic instruction in 
the selected sequence. 

Exit Conditions 

Control returns to the caller immediately following the invoking call. 
Registers at exit are the same as at oitry; no specific output values 
are returned. 

Routines Called 



$GPDT 

$NCONS 

$NLSIB 

$VASGA 

$VASGC, $VFREE, 

$VRSYN^ $VSAVE 

$VDSAC 

$VGTMP 

$WBACK 

$SVC 



Output Director 

Constant Processor 

Library Search 

Adcon Register Assignment 

Computational Register Assignment 

Storage Address Assembler 
Temporary Storage Management 
Segment Management 
SVC Director 
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Global Variables 



$ACODE 
$CBKNO 
$NCCUR 
$VRTYP 

M$ 

o$ 

$NXFLG 

$PADD 

$PTKN 

B$ACTV 

B$CURR 

B$TAIL 

$PTO 

$TEMPL 

$TEMPN 

R$AD 

R$FL 

R$FX 

$VLINE 
$VLPAK 
$VRAMT 
R$SY 
R$TBL 
S$ACTV 
$CTON 
$SEVCT 
S$CURR 
S$TAIL 
Z Table 
Table 
Table 
List 
Table 
Table 
B Table 
S Table 



Pointer to Next Available Byte in Object Code Area 

Current Block Number 

Number of Last Triad with Generated Code 

Flag for Register Type Assignment 

Address of Symbolic Instruction Table 

Address of Operation Code Table 

Communication Flag 

Core Address of Operand 

Operand Token 

B Table Active-Entry Pointer 

B Table Current- Entry Pointer 

B Table End-of-Table Pointer 

Origin of Data Parameter Table 

Temporary Storage Level Count 

Temporary Storage Level Number 

Pointer to Adcon Register Portion of Register 

Table 

Pointer to Floating-Point Register Portion of 

Register Table 

Pointer to Fixed-Point Register Portion of Register 

Table 

Print-Line Work Area 

Doubleword-Aligned Work Area 

Flag for Register Assignments 

Pointer to Head of Register Table Synonym List 

Pointer to Base of Register Table 

S Table Active-Entry Pointer 

Count of Current Nesting of On-Units 

Number of Error Messages Produced 

S Table Current- Entry Pointer 

S Table End-of-Table Pointer 

Triad Table 

Symbolic InstriK:tion Table 

Operation Code Table 

Dictionary Attribute List 

Constant Table 

Register Table 

Block Information Table 

Temporary Storage Table 



Logic Diagram 

Chart 61 shows the detailed logic diagram for the Instruction Assembler 
routine • 
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PART 7 LOGIC DIAGRAMS 

The detailed logic diagrams for the routines concerned primarily with 
code generation follow* 
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Chart 52. Optimize Operands 
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Chart 53. String Constant Dope Vector Initializer 
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Chart 54. Triad Code Generator (Page 1 of 31) 



nn SVStiNS MANUAL 



m.- "^' f 



s^r 



♦ • ♦ ♦ * ♦ TRIAD • ♦ * ♦ ♦ • OP>l 
4>X A| * fSOM^X OKRATOR * ♦X At * ♦Cd'i'X Hi 

♦ ♦ 2l# ♦ # * ftRANCH AHO ♦ » 2i* ♦^ ♦ * $( 

* «*«• «« LIMK <144) 7* ♦♦•♦ ♦• ♦ 




» TRIAO ♦YES •♦*♦ 

• OPERAfeR > * • 4> 

♦ rfirpSAL ♦ ♦ 23* 

* (10*1 7 * *♦♦♦ 



OPERA 

• END f»Rl 

♦ <14I 



TCS70 

♦YES ♦*♦• 
* * * 
♦X 01 • 



TC077 



♦ rw?)? ♦ ♦♦•♦ 



♦ ♦ TCB08 
« * 

* TRIAD ♦YES ♦*♦* 
OPERATOR « * * « 

FORWARD «X CI * 

INTERNAL ♦ ♦ 23* 

♦ (112J ? ♦ ♦♦•♦ 



TRIAD ♦ 
OPERATOR « 
END DO (1521? • 



♦X CI ♦ 
♦ 28* 



TCHOO 

♦ YES ♦♦♦♦ 
* ♦ * 
♦X A5 ♦ 
♦ Jl* 



♦ ♦ TCB14 


♦ ♦ TCB5 


* « 


* * 


TRIAD ♦YES ♦♦♦♦ 


♦ ♦YES ♦♦♦♦ 


OPERATOR « ♦ ♦ ♦ 


♦ TRIAD ♦ * ♦ 


RESOLVE ♦X A6 ♦ 


♦ OPERATOR « ♦X A3 


FORWARD * • 23^ 


♦ BEGIN DO ♦♦29^ 


• (116)? ♦ ♦*♦♦ 


* (156) ? • ♦♦♦♦ 



TCG50 
♦YES ♦♦♦♦ 



♦ TRIAD ♦ • ♦ 
OPERATOR » ♦X CI ♦ 

♦ TITLE (192) ? ♦ ♦ 3l^ 



OPE<(ATOR « ♦X Al ♦ 

♦ STORE ADDRESS ♦ ♦ 24^ 
♦ (120) 7 ♦ ♦♦♦♦ 



♦ ♦ TCC90 

* * 

* ♦YES **** 

♦ TRIAD • ♦ * 
OPERATOR » ♦X Al ♦ 

♦ RETURN (160)? ♦ ♦ 29+ 

* 4> «*** 



TRIAD OP « 


• • 


OTHER (20, 


..X C4 ♦ 


24,44) 


• 30* 




**** 



* * 


TCB20 


♦ ♦ TCA9 


* * 




* * 


* 


♦YES ♦♦♦♦ 


♦ ♦YES ♦♦♦♦ 


TRIAD 
OPERATOR « 


* * * 


♦ TRIAD ♦ ♦ ♦ 
* OPERATOR = ♦X AS 


♦ X Al ♦ 


ALIGN (124) 


7 ♦ ♦26^ 


♦ DOPE VECTOR ♦ ♦ 29^ 


* 

* ♦ 


* *4>** 


MULT (164)^?* ♦♦♦♦ 



♦ ♦ TCB72 


♦ ♦ TCA9 


* ♦ 


* * 


♦YES ♦♦*♦ 
TRIAD ♦ » ♦ 


♦ ♦YES ♦♦♦♦ 
♦ TRIAD i ♦ ♦ 


l;:i?¥ . ♦ -Ur* 


♦ OPERATOR « ♦X A2 


♦ DOPE VICTOR ♦ ♦ 30^ 


STORE (168) ? ♦♦♦♦ 



♦ * 




TCB60 


* • 








♦YES 


♦♦** 




* 


* * 


OPERATOR s 




♦ X CI ♦ 


1132) ? 


* 


♦ 26^ 


* 


**** 



OPERATOR 

E C0M1__ 

(172) ?♦ 



TCDIO 

♦YES *♦♦♦ 
• * « 

Hi.* 



TCB04 
**♦♦ 



(136) ? ♦ 



♦NEC (176) ?♦ 



TCDOO 
YES ♦♦♦♦ 

•J li.* 

* ♦ 

.X* CO^ 

* * 



TRIAD 

OPERATQIi « 

SYHSOL TA«LE 

♦ (140) 7 ♦ 



TCB25 



.X* BO; 
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$TCODE 



NULL OPERATOR 



♦ 
♦Al 



TCA96 

♦iCPMZO ♦ 



41 4c 4i4t4<««« ♦*♦**♦* 



♦ ♦ 

♦ MOVE BIGHT * 

♦ OPERAND TO ♦ 
*LEFT OPERAND ♦ 

♦ * 



OPERAND 
HALFWORD 
ADDRESS ? 



TC12 

****4i4'«*«#4c>C<*4i« 

♦ 41 4<4<** 

♦ SET 4t * * 
X* INSTRUCTION *...X B7 * 

♦ SEQUENCE TO * ♦ 19* 

♦ MSNULCN * **♦* 
*************** 



V TC12 

*************** 

* * **** 

* SET 4- * 4t 

* INSTRUCTION ♦.,.X B7 ♦ 

* SEQUENCE TO * * 19* 

* HSNULH ♦ ♦*** 

4c 41 4> 4i4i4>**4c4>** 41*41 



V TC12 

4t4t*4t4i**4>*4>4'«4t** 

4> 41 ♦4'4<4' 

* SET 4. ♦ 4t 

* INSTRUCTION ♦...X B7 * 

* SEQUENCE TO ♦ * 19* 

* MJNULC ♦ *♦** 
*************** 



TC12 
*************** 

* * **** 

* SET ♦ 4. ♦ 
.X* INSTRUCTION *...X 87 * 

* SEQUENCE TO * ♦ 19* 

* M$NULH * ♦♦** 
*************** 



*************** 

* * **** 

* SET * * * 

* INSTRUCTION ♦...X B7 * 

* SEQUENCE TO ♦ * 19* 

* MSNULR ♦ **♦* 
*************** 
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PL/ I SYSTEMS MANUAL 
STCOOE 



TC76 ♦ • 

* * 

♦ ♦NO 

* ENTRY NAME AN ♦ 

INLINE 

* BUILT-IN ♦ 
♦FUNCTION ? ♦ 



4i*«*«t«4t*4i **•*«* 



*****#4'*4i****** 



*4[*4i*4t****4i**«* 



DOES EtJTRY 

POINT HAV:E 

ITS OWN ARG 

* IIST ? * 



TC77 

♦ SET RET VAL ^ 

♦ ^^DCON ♦ 
.X* POSITION TO ♦ 

♦20-KNO PARMS ♦ 

♦ ♦4) ♦ 



* * 

* INITIALIZE ♦ 

* INSTR ♦ 

* PARAMETER TBL* 

* ADDRESS ♦ 
*************** 



*************** 

♦ SET UP * 

♦ ADORSNG OF ♦ 
K* PARM AREA *. 

* THRy ENTRY ♦ 

* POINT ADCON ♦ 
*************** 



V TC125 

*************** 

* * **** 

* SAVE NO OF ♦ ♦ ♦ 
♦ARGUMENTS IN ♦...X 98 * 

* PARAMETER ♦ ♦ !?♦ 

* TABLE ♦ *♦♦♦ 
*^************* 



*************** 

* * 
♦FORM ADDRESS ♦ 

♦ OF RETURN ♦ 

♦ VALUE AOCON ♦ 

* * 
*************** 



*************** 

♦ SET RET VAL ♦ 
♦AOCON ADD TO ♦ 

♦ COM PARM ♦. 
♦AOO+(NO PARMS^ 

♦ ♦«) ♦ 
*************** 



*************** 
** * * 

♦ ♦ ^SET TEMP REL ♦ 
.♦C5^..X^ PT TO CURR ♦^ 

♦ ♦ ♦TRIAD NO «• NO^ 
♦♦ ♦ PARMS *i ♦ 

*************** 
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STCODE 



** *$VINSA ♦ 

if * 4> * 

*BO*..X*SEE FOLLOWING* 
NOTE * 



^^^itum********* 



** 



* ♦ * SET ♦ 
*CO*..X* INSTRUCTION * 

* * *SEQ TO M$ARGN* 
♦* ♦ ♦ 



* DET ADDRESS ♦ 
.X*OF PARAMETER * 

* LIST ♦ 

* * 



ENTRY POINT 

AN INLINE 

BUILT-IN 

♦FUNCTION ? 



*YES ♦♦♦* 



* ♦NO 

FUNCTION HAVE ♦ 
A RETURN 
VALUE ? ♦ 



4i«4c>tc**4i4c4:4>*4i<c«^ 



**** 



t:([««4c«4t*;(c4l« 



♦FORM INITIAL ♦ 
♦VALUE FOR RET^ 

* VALUE STRNG * 

* DOPE VECT ♦ 



«4i««««*««*4i 



ADD DOPE 

VECTOR 

INITIAL VALUE 

TO CONSTANT 

TABLE 



♦ ♦ 
.^,X BO^ 



GENERATE CODE 

TO INITIALIZE 

STRING DOPE 

VECTOR 



♦ * 

♦ DET SIZE OF ♦ 
.X^TEMP REQ FOR ♦ 

♦RETURN VALUE ♦ 

♦ * 



TCAOOC V 

♦SVGTMP ♦ 



«4<«*«**««4i#*«*« 



* SAVE ADO OF ♦ 
♦RET VALUE IN * 

* TRIAD VALUE ♦ 

* ADO FLD ♦ 



4c »:ti«*4t 4c ««*****«: 

♦ * 

♦SET REGISTER ♦ 

♦ ADD FLD IN ♦ 
♦TR IAD TO NULL^ 

♦ ♦ 

4c;t>4c4c*4t*««*4c4c«*4i 



TCAOOM V 

4c*4t*«4'*4i^^^4t*4c4c 
♦SVINSA * 



4c4c«4>4c4c4i*«4c4<*4c*« 



GENERATE CODE 

TO STORE 

RETURN VALUE 

ADDRESS 



♦ ♦ fnTkY POINT 
.♦C3+X LIBRARY 

* ♦ ROUTINE ? 



TCA02 

♦YES ♦♦♦ 
A ♦ ♦ ♦ 
♦ X DO^ 
♦ ♦ ♦ 
* ♦♦* 



♦ SET ♦ 

♦ INSTRUCTION ♦ 
♦SEQ TO MSCALX^ 

♦ * 

4c :»*«* *««««: 4c :^«*« 



TCAOIC V 


TC077 


♦SVINSA ♦ 


*♦♦♦ 

♦ * 


..X^ GEN LINK TO ♦. , 

♦ SUBPROGRAM ♦ 

* * 


.X C6 ♦ 
♦ 30^ 



*4E****4t*4c*4i4i4i4c« 



♦ ♦ TCAOOH 


TCAOOK V 


♦ * 




♦NO ♦♦♦ 




ENTRY POINT * * ♦ 


* SET ♦ 


FOR MIN OR ♦X CO^ 


♦ INSTRUCTION ♦ 


MAX ? ♦ ♦ 4= 


♦SEQ TO MSARGP* 


♦ ♦♦♦ 





4c4>4c4<4'*^%*^^*^*^ 

♦ * 

♦ SET ♦ 

♦ INSTRUCTION ♦. 
♦SEQ TO MtCLIB* 

♦ * 



♦ ♦ 

♦ SET ♦ 

♦ INSTRUCTION ♦ 
♦SEQ TO MSCALP^ 

♦ * 



4c4c4c4c4t4<^^^4<^*^** 

♦ * 

♦ SET ♦ 

♦ INSTRUCTION ♦. 

♦ SEQ TO ♦ 

♦ MSCLIBT ♦ 

4c4E*4i4t***4i4i4c4t4r*4i 



TC12 

**♦♦ 
» ♦ 

..X B7 ♦ 
♦ 19^ 
»♦** 



TCA05 - 


TLAOlt 






♦ ♦ 


*** 


♦ SET ♦ 


* * 


.X* INSTRUCTION ♦.. 


.X C7* 


♦SEQ TO MSCALP+ 


♦ * 


♦ * 


♦** 


m**i^*i^iit,^m****** 





m******** 



4c**^^****«^^*«* 



*************** 



♦ SET 


♦ 


♦ * 


♦ INSTRUCTION 


4>, 


.X CI* 


♦SEQ TO M$MAX 


♦ 


♦ ♦ 


* 


* 


*♦♦ 



*************m* 
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STCOOE 



♦ BRANCH ON * 
. .X* BUItT-IN • 

♦ FUNCTION 10 ♦ 

♦ NO * 
*************** 



TCA70 

♦YES ***• 

*X Al * 
♦ 9* 



ID NO * 

CHARACTER 

t4)? 



TCC60 
♦♦♦ 
X C6* 



*4i*4c*4c4i«4c4t4>*4>*« 



.X 87 * 
* 19* 



TCA48 

♦YES ♦*♦♦ 
* * * 
♦ X Al ♦ 
? * ♦ 7* 



TCA12 

♦YES ♦♦♦♦ 
^ ♦ ♦ 
♦X 01 ♦ 
9* 



*«** ** 



TCC80 

♦YES ♦♦♦♦ 
« • ♦ 
♦ X Dl ^ 
♦ !!♦ 
*«♦« 



i TCA52 

♦YES »*** 
* * * 
*X Bl ♦ 
* 7* 



ID NO = CPtX 

PSEUDO VAR 

(52) ? 



:CC5? 

♦YES ♦*♦♦ 

* * 
♦X A4 * 

♦ 10+ 
**** 



♦ ♦ TCCIO 

♦ ♦YES ♦♦*♦ 

ID NO = ARITH ♦ ♦ • 
TO STRING ♦X Al ♦ 

(88) ? ♦ ♦ \1* 

4c * *^*^^■^ 



*****4t«*«4>*4t*4t<k 



♦ * TCAf.0 

* •YES ♦**♦ 

* * * 

lu. NO = DIM *X CI * 

(16) ? * » 7* 

* « 4e<c4:4e 



10 NO = 

STRING TO 

ARITH (92) 



AOO INITLZN& 
CONSTANT TO 
CONST TA8L£ 





* 


« 




TCAIO 








*YES 

* 


» ♦ 


11) 


NP 


= ARS 




*X 01 * 




(/•O) 


? 


* 


♦ 7+ 

**** 



ID NO = REAl 

PSEUOr VAR 

(60) ? 



♦SVINSA * 

* GEN CODE TO * 
*INIT f^P V^fT * 

♦ * 



♦ TCA34 

*YES *♦** 
♦ * * 
«00 *X Al * 

? * ♦ 8* 



TCC60 

♦$VGTMP * 



^*^^■t^^H^i^if^^1H^■t^1^^^1^ 



TCA?0 
♦YES **♦♦ 



♦YES ♦♦♦♦ 






NO = 


IMAG 


* 


* 




PSEuon 


VAR 




♦ X 


Rl 




(68) 


? 


* 


* 


10 






* 




***♦ 



GET TEMP FOR 

RETURN DOPE 

VECTOR 



ADO STRING 

MOVE ROUTINE 

TO RUNTIME 

I IP REQ 



♦ * TCA38 

* *Y£S ♦♦♦♦ 

* ♦ * 

ID -^Q = FLOOR ♦X A<f * 
(32) ? * * 8^ 



♦ ID NO = 
SU8STR, 
SUBSTR, 

PSEUDO VAR 

♦ (72,76) ? 



♦YES ♦♦*♦ 



*nii^***m^m****** 



♦ SET TRIAD ♦ 

♦ VALUE ADO ♦ 
♦FIELD TO AOO ♦ 

♦ OF RET VALUE ♦ 

♦ OP VEC * 



♦ ♦ rCA*t2 

* * 

* ♦YES ♦♦♦♦ 

* * * 4c 

♦ ID NO = CEIl ♦X C7 ♦ 

* (36) ? » ♦ 8^ 

* * 

♦ * »♦* 
* NO ♦ * 
X^ 80^ 



♦ ♦ TCC70 

♦ ♦YES ♦♦♦♦ 

* * * 
ID NO - DATE *X CI ♦ 

(80) ? ♦ ♦ !!♦ 
4c 4c *«** 



.X^ C2^ 



4c4i«:*4c«:4'*4t4>***4t* 

♦ ♦ 4t4"* 

♦FORM CONSTANT^ ♦ ♦ 

♦ TO INIT RET ♦...X D3^ 
♦VAL STR DOPE ♦ «t 4t 

♦ VECTOR ♦ ♦♦♦ 

«4<4c4c4'«*4t*«*4c4c4c4c 



**4c4t***4t«4c*4c**« 

4= * 4<4t4c4t 

♦ SET 4. » ♦ 

♦ INSTRUCTION ♦...X B7 

♦ SEQUENCE TO ♦ ♦ 19^ 

♦ MSMCHAR ♦ ♦♦♦♦ 

4c«4c4c4c4<*4c$4c4i4c4i4c4c 
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JTCODE 



L80UND 
BUILT-IN 
FUNCTION 



HBOUND 
BUILT-IN 
FUNCTION 



.X* 



* FORM OFFSET » 
OF LBOUNO * 

WITHIN DOPE ♦ 

* VECTOR * 



TCA52 

♦*♦ * * 

♦ ♦ ♦ FORM OFFSET ♦ 
*B1 ..X* OF HBOUND * 

* * * WITHIN DOPE * 
*♦♦ * VECTOR ♦ 



TCA60 

414:41**4141*41*41*41** 
*** * * 

* ♦ ♦ FORM OFFSET ♦ 
*C1 ..X*OF UPPER AND ♦ 

* ♦ *LOWER BNDS IN* 
*** * DOPE VECTOR * 

**4c************ 



*************** 

♦ * 

* SET * 
INSTRUCTION *. 
SEQUENCE TO ♦ 

" MSABS * 

41*41************ 



. A* 



* SET ♦ 
.X* INSTRUCTION *. 

* SEQUENCE TO ♦ 

* M$BNDP * 

4c*4t************ 



TC12 
*♦** 



TCA62 TCI2 

*************** 

« * **** 

♦ SET * * ♦ 
..X* INSTRUCTION ♦...X 87 * 

♦ SEQUENCE TO ♦ * 19* 

♦ MSDIHP * **♦* 

***4t**4i******4t* 



*4i*4i**********4i 

* * 

*AOD OFFSET OF* 
*LBOUND TO ADO* 

♦ OF DOPE ♦ 
♦VECTOR ORIGIN* 

4c************** 



*************** 

* * 

* ADD ADDR OF * 
*DOPE VEC ORGN* 

♦ TO UP e LOW * 

♦ BND OFFSET ♦ 
*************** 



V TC12 

*************** 

* * **** 

* SET * * * 

* INSTRUCTION *...X B7 * 

* SEQUENCE TO * * 19* 

* M$BND ♦ **** 
*************** 



V TC12 

*************** 

* * **** 

* SET * * * 

* INSTRUCTION *.,,X B7 * 

* SEQUENCE TO * ♦ 19* 

* MSOIM * **** 
*************** 
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STCOOE 



*** 

♦ * 


* 


♦ 






*** 


* 


OPERAND 
FLOAT 


TYPE 



« * 

* SET * 
.X* INSTRUCTION ♦. 

♦SEQ TO M$MOOF* 

* * 



.X B7 ♦ 
* 19* 



ARGUMENT IN 

FLOATING 

REGISTER ? 



V TCI2. 

♦ SET ♦ ♦ * 

* INSTRUCTION *...X B7 ♦ 
♦SEQ TO MSSGRN* * 19* 

4t4c **«« 4c4c***4c4c4c4c 



TC12 

* SET * ♦ * 

* INSTRUCTION *...X B7 * 
*SEQ TO M$M0O * * 19* 



SIGN PLUS ? 



FLOOR 
BUILT-IN 
FUNCTION 



V TC12 

* SET * * * 

* INSTRUCTION *...X 87 ♦ 
*SEQ TO MSSGNR* * 19*. 






* * 

* SET * 
X* INSTRUCTION », 

*SEO TO M$FLR * 

* * 



♦ SIGN PLUS ? *. 



* SEI * 

* INSTRUCriJN * 
*SFQ rn MSFLRX* 

* * 



* * 

* SET * 

* INSTPUCTICN ♦. 
*SrQ TC M$SIGN* 

* * 



SET 
INSTRUCTI'IN 

SEQ ro 
m$sign:n 



TRIAD 

OPERATOR A 

DIVIDE ' 



* SET * ♦ * 

.X* INSTRUCTION *...X B7 * 

*SEQ TO MiTRUX* ♦ 19* 

**»*i|c4i**4c ****** 



* SET * 
X* INSTRUCTION *. 

*SFO TC MtCFIL* 

* * 



**********^*4c4i4c 

* * 

* SET * 

* INSTRUCTION *... 
*<.f 3 TO MSCLFX* 

* * 
*************** 
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*TCOOE 



TRUNC 
BUILT-IN 
FUNCTION 



COMPLEX 
BUILT-IN 
FUNCTION 





TC12 


TCA12 ♦ * 


^HfHHfiti*****^***** 




♦ 


* * 


**** 


*** * 


* SET * 


♦ ♦ 


* * ♦ SECOND 


* INSTRUCTION ♦. 


.X 87 * 


♦CI * ARGUMENT 


* SEQUENCE TO * 


♦ 19* 


* * ♦ CORE ? 


* MSTRUN * 


**♦* 


*if* * 


^^it'************ 




* 



TCA127 

^d 4t * « 4< «> ♦« ♦ 4c * 4c 4t 4> * 

* SET SIGN OF * 

* SECOND * 

, ..X* ARGUMENT TO ♦. 
*ITS REGISTER * 

* S I GN ♦ 

«««*4c4c4,4c>^4:4i4t4r*« 



V 


TCI2 


««;^«4c4c«4i**«*4c4c4c 




* ♦ 


**** 


* SET ♦ 


* ♦ 


♦ INSTRUCTION *. . 


. X B7 * 


* SEQUENCE TO * 


♦ 19* 


♦ M$TRUX * 


*♦*♦ 







* * 

* SET SECOND * 

* ARGUMENT ♦ 

* REGISTER ♦ 
♦ADDRESS NULL * 

4c « « « 41 * ;(c « * * 4c« * 41 4c 



4c4' * * 

* * * DETERMINE * 
*C3»..X* EFFECTIVE * 

* * *SIGN OF FIRST* 
** * ARGUMENT * 

4c4c4c*4c4c4c*4c*4c4c4c4c* 



t****A'********* 



TC12 

* 4c 4t4c4c4c 

* SET ♦ 4< * 
X* INSTRUCTION ♦...X B7 * 

* SEQUENCE TO * * 19* 

* M$CPXM * ***♦ 

4c 4c 4c 4c 4c 4c 4t**4> 4c 4c 4c 4c 4c 



TC12 
4c*4c4c4c4c:»4c4c*4>4c4c** 
4< * 4t*4c* 

* SET 4C * ♦ 

* INSTRUCTION *...X 87 * 

* SEQUENCE TO * * 19* 

* MiCPXB * ***♦ 

4c*4c:^*****4t*4c4c** 
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$TCODE 



COMPLEX 

PSEUDO 

VARIABl f- 



* SET OPERAND * 
X* OFFSET TO ♦ 

* FOUR ♦ 

* ♦ 



TCA14 
41** * * 

♦ * * SET ♦ 
♦CI ..X* INSTRUCTION ♦. 

♦ * *SEQ TO M$REAL* 

♦ ♦* ♦ ♦ 



. X B7 * *D1 



*MOVE CORE ADD* 
. .X* OF ARG TO * 

* TRIAD VALUE * 

* ADD FIELD * 

tE^^ll^'********** 



*4c*4i*********** 

* * 

* SET OPERAND * 

* OFFSET TO * 

* EIGHT ♦ 

* * 
*4c4t ****** ****** 





TCA16 


TCI- 




m^iHf*********** 




*** 


* * 


**** 


* * 


♦ SET * 


* * 


*C3 , 


.X* INSTRUCTION ♦.. 


.X B7 


* * 


* SEQUENCE TO * 


* 19* 


*♦♦ 


♦ M$IMAG ♦ 


*♦** 



* * * SET OPERAND * 
*A^ ..X* OFFSET TO * 

* * * ZERr * 
*** * * 

* «4l « «« 4c« 4r« <i4t4[ « « 



TC125 

4c 4c»«4t* ********* 

41 * **** 

♦SET TRIAD VAL+ * ♦ 

.X*ADD TO OPRND *...X 88 ♦ 

♦OFFSET + OPD * * 19* 

* CORE ADD * ***♦ 

«:«*4i4.4[*««4>*4c4rA4c 



*************** 

♦ * 

♦ SET TRIAD * 

♦ REGISTER * 
♦FIELD TO NULL^ 

♦ * 

*************** 



*************** 

♦ MOVE * 
♦SUBSCRIPT REG* 

♦ OF ARG TO * 
♦TRIAD SUB REG^ 

♦ FIELD ♦ 
*************** 



* * TCI25 

* * 

* *NC *♦** 

* * ♦ 

ARGUMENT A *X B8 * 

PARAMETPR 7 » * 19* 

* * **** 



*************** 



*************** 



* ASSIGN WORD * 
♦OF ADCON STOR* 

* FOR ADD * 

* CONSTANT * 
*************** 



*************** 

♦ ST TRD VAL * 
*ADD TO ADD OF* 

♦ ASGD adcon; * 
♦SET PARM FLG ♦ 

♦ ON ♦ 
*************** 



TC12 
*************** 

♦ * **** 

♦ SET * * * 
X^ INSTRUCTION ♦...X 87 ♦ 

♦ SEQUENCE TO ♦ ♦ 19* 

♦ HSIPV ♦ ♦♦♦♦ 
*************** 



************* 



♦ SEQU£N-_ 

♦ M$II»VS 
*************** 
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STCOOE 



SUBSTR 

BUILT-IN 

FUNCTION AND 

PSEUDO 

VARIABLE 



TCC40 

♦ $VGTMP ♦ 



41 4I************* 



^t************** 



4i4t*4>4r**4i*****4i* 



41 * 

* SET TRIADS * 

* VAL ADO FLD ♦ 

* TO ADO OF ♦ 

* DOPE VECTOR ♦ 
4c4'4t4i**«**4>4<**** 



TCC82 V 

*$VGTMP ♦ 

4> * 

♦GET TEMP FOR * 

♦ RET VAL ♦ 

* * 



4c4i*4c********4t** 

4t 4c 4<4t4<* 

♦ SET ♦ ♦ 4< 

.X* INSTRUCTION *,..X B7 ♦ 

♦ SEQUENCE TO ♦ ♦ 19* 

♦ M$SUB3 ♦ ♦**♦ 

4>4c4i4i«*****4>*4i*4t 



41*41*41 4t4t 41 4t 41 4i**4t« 

♦ * 
*FORM CONSTANT* 

* TO INIT * 

* STRING DOPE ♦ 

♦ VECTOR * 
*************** 



FIRST 

ARGUMENT AN 
ARRAY ? 



*************** 

♦ ♦ 
♦SET OFFSET TO* 

X* INGTH FIELD ♦. 

♦ IN £X3PE ♦ 

♦ VECTOR TO A « 
*************** 



*************** 



*************** 

♦ DET OFFSET ♦ 

♦ FROM DOPE ♦ 

♦ VECTOR ORIG ♦ 

♦ TO LENGTH * 

♦ FIELD ♦ 
*************** 



ADO CONST TO 
INIT OOPE 
VECTOR TO 
CONST TBL 



FIRST 
ARGUMENT A 
PARAMETER 



TCC44 TC12 

*************** 

♦ * **** 

♦ SET * * ♦ 
.-X^ INSTRUCTION ♦...X B7 ♦ 

♦ SEQUENCE TO ♦ ♦ 19* 

♦ M$SUB2A ♦ ♦*♦♦ 
*************** 



*************** 



♦♦♦♦*♦*♦♦♦**♦** 



*************** 

♦ SET TRD ARG ♦ 

♦ TO OOPE ♦ 
♦VECTOR ADD ♦ ♦ 

♦ OFFSET TO ♦ 

♦ LGTH FLO ♦ 
*************** 



*************** 

♦ ♦ 

♦ SET TRIAD VAL^ 

♦ ADD FLD TO ♦ 

♦ ADD C^ OOPE ♦ 

♦ VECTOR ♦ 
*************** 



♦SEE FOLLOWING^ 

♦ NOTE ♦ 

♦ ♦ 
*************** 



*************** 



*************** 



*************** 



ADD TIME 
ROUTINE TO 

RUNTIME 
LIBRARY REQ 



TC12 



..X 87 ♦ 

♦ 19^ 
♦♦*♦ 



************0** 



FUMCTION ? 






*** 

* * 

.X* Oh* 



TO 

MSBATE ♦ 
•••••♦♦*♦*«•*•• 
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PL/I SYSTEMS MANUAL 
STCODE 



ARITHMETIC TO 
STRING 
CONVERT 



STRING TO 

ARITHMETIC 

CONVERT 



TCCIO 

*** *$VGTMP * 

« « * * 

*AI ..X*GET TEMP FOR * 
♦ ♦ * STRING V • 

*** * * 



TCC12 

** *$VGTMP ♦ 

* 4> ♦ ♦ 

*C1*..X*SEE FOLLOWING* 

* * ♦ NOTE * 
♦^ * * 



««[* 4c ***#****«> 



GET TEMP FOR 

SOURCE TO BE 

CONVERTED 



4c*****4i*4i*itc«*** 



♦FORM CONSTANT* 
•TO INITIALIZE* 

♦ DOPE VECTOR ♦ 

* * 



TCC14 V 

*iti*4!4t*********4[ 
*$VINSA ♦ 



*inii^m*******i*** 



CREATE DOPE 

VECTOR FDR 

STRING 

CONSTANT 



i^m*************t 



GEN CODE TO 

MOVE SOURCE 

TO DUMMY ARG 



TCC3I V 

*************** 
♦SVGTMP ♦ 



*************** 



*************** 



*SET ENTRY PT ♦ 
.X* TO ARITH TO * 
* STRING * 
♦CONVERT ROUT * 
*************** 



*************** 

* SET ENTRY ♦ 

* POINT TO ♦ 

* STRING TO ♦ 

* ARITH CONVT ♦ 

* ROUT ♦ 

**^4,*********** 



♦SET ARGUMENT ♦ 
.X* SIGN TO ITS *. 
♦REGISTER SIGN* 
* ♦ 

*************** 



TCC20 V 

*************** 
*»NLSI8 * 



*************** 



* ♦ TCCi9 

* ♦YES *♦♦ 

♦ * * * 
ARGUMENT CORE *X C5^ 

♦ SIGN PLUS 7 ♦ * ♦ 

♦ * *** 



♦ ♦ 



*** 



ADD ENTRY 

NAME TO 

RUNTIME LIB 

REQMT 



*************** 

* * 

* SET TRIAD * 

* VALUE ADD * 
*FIELO TO ADD * 
♦OF RET VALUE * 
*************** 



V rci2 

*************** 

* * **** 

* SET ♦ ♦ ♦ 

* INSTRUCTION ♦...X B7 * 
*SEQ TO.M»CVT ♦ * 19* 

* * ***« 
*************** 
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♦Al ♦ SOURCE TYPE 

* ♦ * FLOAT ? 

*♦♦ ♦ ♦ 



4t4t*«4<*4t4<*****4t* 



ICA878 

** *$NCON * 



******4t4r«**4i4c*4i 



TCA88 

4, 41 If*** 

* ♦ ♦ ♦ 
.X* SET CONVERT *...X BO * 

* TYPE TO 28 ♦ ♦ 14* 
i^ « **** 

4>4t4i**4<******4<*# 



* 


* 




TCA88 


♦ 


♦ 










*YFS 


**** 






♦ 


* * 


ARGET 


TYPI 




♦ X SO ♦ 


FLOAT ? 


♦ 


* 14* 






* 


♦♦♦♦ 



iEARCH 
SCALING CONST 
TN CONST TBI 



^^t^c^^itc********* 



****** 



******* 



* SET SCALE * 

* VALUE TO * 
*MINUS SOURCE * 
*SCALE FACTOR * 
*************** 



* * *FORM SCALING ♦ 
*A5*..X*C0NSTANT 10*** 

* * * ABS ISCALE * 
** * VALUE) * 

*************** 



*************** 



*************** 



V 


TCA85 






* * 


♦ ♦* 


* SET SCALE * 


* * 


* VALUE TO *., 


.X A5* 


♦TARGET SCALE * 


* * 


* FACTOR ♦ 


*♦♦ 


*************** 





*************** 

* * 

♦ »-ORM INSTR ♦ 

♦ PARH TABLE 
*FNT FOR SCAl 

* CONSTANT * 
*************** 



.. .X BO * 
* 14* 
*♦♦* 



87 * ♦ 


TCA878 


* * 




• *N0 


*** 


* 


* * 


SCALING VALUE 


*X 01* 


ONE ? ♦ 


* * 


* * 


*♦* 



TCA937 

*************** 
♦GENER84 * 



TARGET OR 
SOURCE TYPE 
COMPLEX? 



*************** 



TCA878 

♦YES ♦** 

! Dl* 
' * 
*** 



* SET SCALING ♦ 
.X* INSTRUCTION *. 

* TO DIVIDE ♦ 

* * 
*************** 



TCA87 

♦ ** 
* * 
X C5* 



*************** 



*************** 



* TO MULTIPLY * 

* * 
*************** 



TCA87 

*** 

* * 
..X C5* 

* * 
*** 



*************** 



.X* SET CONVERT ♦...X B8 * 

♦ TYPE TO 72 * * 1«* 

* * **** 
*************** 



*************** 



*************** 



.X B8 * 
♦ 14* 
**** 
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*♦♦ 




* 




* ♦ 


m 






♦ BO * 




SOURCE 


TYPE 


* * 


* 


DOUBLE 


? 


*♦* 




*■ 





^m************* 



4i«:«*4i*4i4i******* 



4c*4c««4'4c**4i«4<4c*« 



^*i^^^i1f^i******m** 



*4[4e#*4c*»«4i***** 



0^i^i^^m********* 



**^tc^***m****** 



«4c*«4t*«*4c4c4i«*4i«c 



* ADD SIGN OF ♦ 
. X* SOURCE OPND * 

♦TO TRIAD SIGN+ 

* ♦ 



TC12 

♦SET INSTR SEQ* ♦ ♦ 

♦ TO VALUE ♦...X B7 ♦ 

♦ ASSOC WITH ♦ ♦ 19* 

♦ CONV TYPE ♦ ♦♦♦♦ 
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** * * 

* * ^ADV TO AOCON * 
♦CO*..X* AREA ADD OF ♦ 

♦ ♦ * NEXT PARM * 
♦♦ ♦ * 



♦Bl * BUILT-IN FLAG *X CO* 
♦ ♦ ♦ SET ON ? ♦ * ♦ 
♦♦♦ ♦ ♦ **♦ 



* TC99 

♦YES ♦*♦* 

STRING? *X AO * 
♦ * 16* 
* ♦**♦ 



* SAVE ALL * 

* INSTRUCTION * 

* PARM TABLE * 

* ENTRIES * 

4i4e**«**4>******* 



* * 

* SET UP ♦ 

* DEASSIGN ♦ 

* POINT FOR ♦ 
*TEMP STORAGE * 



TC903 



TC917 



* *YES *♦** 

* ARG SIGNED OR * * * 
PARENTHESIZED *X A4 ♦ 

* ? * * 16* 
» X( **** 



♦ X A4 * 
♦ 16* 



8F * * TC992 

* ♦ 
* *YES **** 

* ♦ ♦ 
ARGUMENT A *X C2 * 
CONSTANT ? * ♦ 16* 



,*C6 . 
■ ♦ ♦ 
,**♦ 



* ♦ 

♦SET REGISTER * 
X* ADDRESS TO * 

* NULL * 

* * 

4.4C4C4:*********** 



TC999 

♦YES ♦♦♦* 

E *X CI ♦ 
♦ ♦ 16* 
» ♦♦♦♦ 



TC988 TC98 
#«********♦*«** 

♦ ♦ ♦♦* 
♦RESTORE INSTR+ * ♦ 

..X^ PARM TABLE ♦...X B8+ 

♦ ENTRIES ♦ * ♦ 

♦ ♦ **♦ 

4ii|i4c4c*^********* 



♦ ♦ ♦ MOVE ARG TO ♦ 
♦B8^..X* INSTRUCTION ♦ 

♦ ♦ ♦ PARM TABLE ♦ 
** * ♦ 

4c*«4<***^^^^^^^^ 



♦ ♦ *♦♦* 

♦ SET * ♦ ♦ 
.X* INSTRUCTION ♦...X B7 ♦ 

♦ SEQUENCE TO ♦ ♦ 19^ 

♦ MSARGP ♦ ♦♦♦♦ 
*************** 



* ADVANCE TO * 



«4t**«4c*«4i«*4t*** 



V TCi2 

♦ * **4i* 

♦ SET ♦ ♦ * 

♦ INSTRUCTION ♦...X B7 ♦ 

♦ SEQUENCE TO * * 19* 

♦ MSARGN ♦ *♦♦* 
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♦ * 
♦AO 

♦ ♦ 



OEASSIGN 

POINT - LAST 

USE? 



ASSIGN TEMP 

FOR DOPE 

VECTOR 



.X* C6 * 
* 15* 
**** 
TC905 



TC99? 

•res **♦ 

* * * 

*X C2* 

* f * 
* ♦** 



* RESET ♦ 
X* OEASSIGN * 

* POINT * 

* ♦ 



*** * * 

* * *SET UP LENGTH* 
.*C2 ..X*OF STRING FOR* 

* ♦ * I NIT DOPE * 
♦** * VECTOR * 



*************** 



EXPRESSION 

POSITIVE IN 

CORE ? 



TC905 
♦YfcS ♦*** 



♦ * DETERMINE * 
..X* SIGN FOR * 

* * ARGUMENT * 
* ♦ 
*************** 



*********** 



♦SAVE ADDRESS *...X C6 * 

* OF TEMP * * 15* 

* * *«** 
*************** 



TC94 V 
************** 
♦SVGTMP 



*************** 



GfcT TEMP FOR 

STRING DUMMY 

ARG 



TC996 V 

*************** 
♦$VINSA * 



*************** 



TC986 

*************** 
*$VINSA ♦ 



*************** 



TC993 V 

*************** 
*$NCONS * 



*************** 



GEN CODE TO 

MOVE ARG TO 

TEMP 



. .X C6 ♦ 
* 15* 
**** 



*************** 

* * **** 

* DETRMN INST * * ♦ 
*SEQ FRM SGN £,*... X B7 * 
*TYP OF ARG & * * 19* 
*ENTRY PT ATTR* ♦*** 
*************** 



GEN CODE TO 
STORE LABEL 
CONST INTO 

TEMP 



ADD CONST TO 

INIT DOPE 

VECTOR TO 

CONST TABLF 



TC997 V TC90 

*************** 

*$VINSA * **** 

* * * * 

* GfcN CODE TO *... X C6 

* INIT DOPE V * * 15* 

* * **** 



*** 
* * 
..X Dl* 



*************** 
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ASSIGNMENT 



*Al 



RITHMETIC ♦•.. 


.•,X LEFT OPERAND 


tySe i"- * 


♦ A REGISTER? 


* 


* 


♦ * 


* « 


* * *** 


♦ ♦ 


♦ NO ♦ ♦ 


♦ YES 






♦ * 




**♦ 




TC^4 


. 



44I4I4I*********** 



*************** 



TC457 

*************** 

* * **** 
» SET * * * 

* INSTRUCTION ♦..•X 87 ♦ 
♦SEQ TO MiREGA* * 19* 

* * «*** 
*************** 



♦ X AO ♦ 
* 18* 
**** 



TC45 


TC12 






* * 


♦*** 


♦ SET ♦ 


* * 


X* INSTRUCTION *. 


..X 87 ♦ 


♦SEQ TO MSASST* 


* 19* 


* * 


»*** 



*************** 



♦ *YES 

* RIGHT OPERAND ♦ 

LABEL ♦ 

* CONSTANT ? * 



*************** 

* SET * 
.X* INSTRUCTION *. 

*SEQ TO M»BREV* 

* * 
*************** 



* SET * * * 

. X* INSTRUCTION *...X B7 * 
*SEQ TO MJASCM* * 19* 

* * **** 
*************** 



*************** 

* * 

* SET OPERAND * 

* TYPE TO *. 

* COMPLEX ♦ 

* * 
******** 



TC<»1 V 


TCl4 


*************** 




♦ * 


**** 


♦ SET ♦ 


* * 


X* INSTRUCTION ♦. . 


.X 87 


*SEQ TO M$ASCP* 


♦ 19* 


* * 


**♦* 



********•«**•** 
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* * 
*A0 * 

* * 



LEFT OPERAND 

HALFWOftO 

A DOR 7 



TC37 TC12 

♦ SET ♦ * ♦ 
.X* INSTRUCTION ♦...X B7 ♦ 

♦ SEQ TO ♦ * 19* 

♦ M*SHALFN * ♦♦*♦ 



m****i*******m** 



* SET ♦ 


* * 


♦ INSTRUCTION ♦...X B7 


* SEQ TO * 


* 19* 


* MSSBYTEN ♦ 


»♦*♦ 







LEFT OPERAND 

HALFWQRO 

A DOR? 



TC12 

♦ SET ♦ ♦ ♦ 

* INSTRUCTION *.,.X 87 * 
*SEQ TO MSASRH* * 19* 



TC35 TC12 

* SET * * * 
.X* INSTRUCTION *...X B7 * 

* SEQ TO * * 19* 

* MSSHALF * ♦**♦ 



♦ SET * * ♦ 

,X* INSTRUCTION *...X 87 ♦ 

*SEQ TO M$ASRP* ♦ 19* 

« « ***♦ 



* * 

* SET RIGHT * 

* OPERAND ♦ 
♦REGISTER ADDR* 

* NDLL * 



* 

* SET 

* INSTRUCTION 

* SEQ TO 

* M$S8YTE 



TC675 V 

*$OPMZO * 



4E««4c*4t«4i4[*:^*;4i 



*4<*4'4'>('*4'«*# 



*4i#<[«c4t«#4c4>4< 



4i4c««4[4c4c*4c4c4[4i4i 



* SET * * * 

* INSTRUCTION *...X B7 * 
*SEQ TO MJDIV * * 19* 
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STCODE 



ADO AND 

SUBTRACT 

OPERATIONS 



TC08 
♦SOPMZO * 



*****i|[4[4i4i«*4t«*4i 



TC13 

*♦* ♦ * 

* * ♦ RELEASE ALL * 
*C1 ..X* ENTRIES OF * 

♦ * ♦ TRIAD TABLE ♦ 

*** * * 



DET EFFECTIVE 

SIGN OF OPNDS 

AND OPTIMIZE 

ORDER 



EXIT 



* * TC105 

« * 
* ♦MO ♦«* 

♦ ♦ ♦ 

RIGHT OPERAND ♦X A^* 

PLUS ? ♦ ♦ ♦ 



* * *ADJUST SIGNS * 
*A4*. .X* TO OPTIMIZE *. 

* * * CODE * 
** ♦ * 



♦ ♦♦ 

♦ * 

X A7* 
» * 



♦ ♦♦♦4<*4t4i4c4<4c«4;«4< 



TC12 



♦ SET 

♦ INSTRUCTION *...X 87* 
*SEQ TO MSSUBC* * * 

♦ ♦ ♦** 



TC105 

* ♦ 
X A4* 



* ♦ 

* SET * 

* INSTRUCTION ♦ 

* SEQUENCE TO * 

* MSADDR * 



* SET ♦ 

* INSTRUCTION ♦ 
*SEQ TO MSSUBR* 

* * 



*iH*ttitt*********il' 



* * 

* SET ♦ 
X* INSTRUCTION ♦. 

*SEQ TO MSADOC* 

* ♦ 



*♦* 
* * 
.♦B7 



TCI2 V 

*$VINSA ♦ 



*«*4i4i*4>4[4c4t*«*«4c 



TC125 V 


TC02 


*4>*«*««««**«*«4i 




*♦* ♦ * 


♦*♦♦ 


* * * * 


♦ ♦ 


♦B8 ..X* ADVANCE TO ♦. 


.X A4 * 


* ♦ ♦ NEXT TRIAD ♦ 


» I* 


♦ ♦♦ * ♦ 


**** 
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STCODE 



*♦* * *N0 

* * * OPERANDS * 
♦Al ♦ ARITHMETIC 

♦ ♦ ♦ TYPE ? ♦ 



^^^i************ 



.X B7 * 
* 19* 



*************** 



GET SIGNS OF 

OPNDS £ 

OPTIMIZE 

ORDER 



*************** 

* * 

* CHANGE SIGN * 

* OF LEFT * 

* OPERAND ♦ 

* * 
4[4t4<4>4t**4'4<****** 



4c***#***4c**#*4<4t 

* * 
♦CHANGE RESULT* 

* SIGN TO * 
*INVERT > AND * 

* < TESTS ♦ 
***4t**4i«4i****** 



♦CHANGE RESULT* 

♦ SIGN TO » 
♦INVERT > AND ♦ 

♦ < TESTS * 
4I************** 



TC56 TC12 

4t************** 

* * **** 

* SET * * ♦ 
.X* INSTRUCTION *...X B7 * 

* SEQUENCE TO ♦ ♦ 19^ 

* MSCCN * ♦♦»♦ 
4i**«**«*******« 



*************** 



* SET * 


* * 


♦ INSTRUCTION ♦. 


.X 87 


♦ SEOUENCE TO ♦ 


* 19* 


♦ M$CCP ♦ 


**** 







47 * ♦ 


TC48 V 


TCI 


* ♦ 






* *No *** 


* * 


**** 


RIGHT OPERAND ♦ * * 


♦ SET * 


♦ * 


HALFHORO *X B2^ 


♦ INSTRUCTION ♦. 


.X B7 


ADDRESS? * * ♦ 


♦ SEQUENCE TO ♦ 


♦ 19* 


* * *** 


* MSCRN ♦ 


**** 


* * 


*************** 





V TC12 

*************** 

♦ ♦ *♦** 

♦ SET * * * 

♦ INSTRUCTION ♦, . . X 87 ♦ 

♦ SEQUENCE TO ♦ ♦ 19^ 

♦ MSCRP ♦ ♦**♦ 
*************** 



TC<^9 
*************** 

♦ * **** 

♦ SET * * * 

♦ INSTRUCTION *.,.X 87 

♦ SEQUENCE TO ♦ ♦ 19^ 

♦ M$CHLF ♦ ♦♦** 
*************** 
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*** * *t 


jn 


* * ♦ RIGHT OPERAND 


4: 


*A1 * HALFWORO 




* * ♦ ADDRESS ? 


* 


»♦♦ « * 





TC24 V 

*$OPMZO * 



* #4c A:(r«*:(r«4'4<« <<« 4r 



«]ti*4t«4i***4i4i*4c** 



OPERANDS IN 

ADJACENT 
REGISTERS ? 



*«*4i«*4t4ti(i 



* * 

* DET OFFSET * 

* IwITHiN DOPE * 

* VEC TO DIM * 
« MULTIPLIER * 



«*ik***4c: 



U*: 



***** 



* SET « * * 

* INSTRUCTION *...X B7 » 

* SEQUENCE TO * * 19* 

* MSMPYP * **** 

4c 4C««]J> «[*«**«*** <! 



LEFT OPERAND 

IN EVEN 

REGISTERS ? 



:(c**4:******** 



************* 



* SET * 

* INSTRUCTION *. 

* SEQUENCE TO * 

* MSMPYH * 

<[:»:«< 4c** ********* 



TC225 V 

41************** 

*$OPMZO * 



*************** 



DETERMINE 

SIGNS OF 

OPERANDS AND 

OPTIMIZE 

ORDER 



*************** 



********* ****4c4c 



TC26 

♦YES ♦** 
* * * 
♦ X C6* 
* * 
*** 



***♦ 



*************** 



************* 



TC30 


TC12 






* * 


**** 


* SET ♦ 


* * 


X* INSTRUCTION *, 


.X B7 * 


* SEQUENCE TO * 


* 19* 


* MSMPYN ♦ 




*************** 





♦ SET 

♦ INSTRUCTION *...X B7 * 

♦ SEQUENCE TO * ♦19* 

♦ MSMPYR ♦ ♦♦♦♦ 

*************** 



TCI2 

*************** 

♦ * **** 

♦ SET * * * 

♦ INSTRUCTION ♦...X 87 ♦ 

♦ SEQUENCE TO ♦ ♦ 19+ 

♦ M$HPYC ♦ *♦♦♦ 
*•**♦.******♦*** 
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OR OPERATOR 



AND OPERATOR 



TC68 
♦iOPMZO * 



m^*m********* 



* * 
*B1 

♦ ♦ 



V TC12 

* * **m* 

* SET ♦ ♦ ♦ 

* INSTRUCTION ♦...X B7 * 

* SEQUENCE TO * ♦ 19* 

* M$OR ♦ *♦*♦ 



TC70 

*$OPMZO * 

.X* OPT QROR OF ♦ 

♦ OPNOS * 

* * 



TC12 

* SET * * ♦ 

* INSTRUCTION ♦...X 87 ♦ 

* SEQUENCE TO * ♦ 19* 

* M$AND * ♦**♦ 



TC72 


TCI 


>|i***«*4>«4i4i**4(4i4, 




* * 


**** 


* SET ♦ 


♦ * 


X* INSTRUCTION ♦. . 


.X B7 


♦ SEQUENCE TO ♦ 


♦ 19* 


♦ MSSUBT * 


**** 


*«^4.4.*4<4.4>«*««4,4i 





* CHANGE * 

* OPERATOR TO ♦ 
♦INVERT > AND ♦ 

* < TESTS * 



DEFINE 

ADDRESS 

OPERATOR 



**♦ 




* 






♦ ♦ 


*■ 








»A4 ♦ 




LEFT 


OPERAND 


* * 


* 


TVPE 


NULL 


? 


♦ ♦* 




♦ 







* * 
♦MOVE CURR VAL* 

.X* OF CODE ADD *. 
*CNTR TO CURR * 

* TRIAD * 



FORM * 

CONDITION * 

CODE FOR * 

OPERATOR * 



TC12 
^i*nni^if*f ******* 
4c * **** 

* SET * ♦ * 

* INSTRUCTION ♦...X 87 * 

* SEQUENCE TO ♦ * 19* 

* MSTEST * **** 
**♦*♦* 



* MOV CUR VAL * 

* OF COE ADD * 
*CNTR TO OFST * 

* ADO IN LFT * 

* OPND * 
*************** 



03 ♦ 


* 




TC125 


* 


* 










*Nn 


**** 


DOES 


TRIAD 


* 


* * 


DEF A 


BRANCH 


*X B8 * 


LAIJEL ? 


* 


* 19* 


* 




* 


**** 



************* 



TC12 

**** 



* SET 

* INSTRUCTION *...X B7 

* SEQUENCE TO * * 19* 

* MSRFIB * **** 
*************** 



* DETERMINE * 
.X*CDND CODE FOR* 

* BRANCH * 

* INSTRUCTION * 

*************** 



*************** 

* * *i*** 

* SET ♦ * * 

* INSTRUCTION *...X 87 

* SEQUENCE TO * * 19* 

* MiBREV * **** 
*************** 
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COMBINE OR 
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STATEMENT 

LABEL 



TCB96 • » 

* * 

*♦* ♦ *N0 

* ♦ * LEFT OPERAND ♦ 
♦Al * LABEL 
« * * CONSTANT? * 

♦»♦ ♦ ♦ 



♦*>•> 




* 




# * 


* 


TRIAC) LINK 


•CI * 




FIELD 


POINTS 


* * 


♦ 


TO AIIOTHER 


«** 




♦ TRI 


AO ? 



♦PLACE CUR VAL* 

.X* OF CODE ADD ♦ 

♦CNTR IN TRIAD* 

♦ tCONT) * 



* SET ♦ 

.X* INSTRUCTION ♦. 

* SEQUENCE TO * 

* MiBRES ♦ 



.X BT ♦ 

♦ 19* 



♦ ♦ 

♦PLACE CURRENT* 
♦VALUE OF CODE* 
♦ADDR CNTR IN ♦ 

* TABLE fCONT ♦ 



* ♦ 

* OPERAND OF * 
♦NEXT REFRNCE ♦. 
♦TO THIS LABELS 

* * 



TCBIO 

* ♦ 

X C** 

* * 



« ♦ 

♦ADD STMT LBL ♦ 
♦REF CHAIN FRN*. 
♦IN 8LK TO CHN* 
♦ OF OTR BLK *^ 



* * 

♦ ENTRY WHICH * 
♦HEADS REFRNCE^ 

♦ CHAIN ♦ 

• * 



FORWARD 

INTERNAL 

BRANCH 



V^ Tei2 

♦ SET •^ * ♦ 

♦ instrm:tion ♦...x bt ♦ 

♦ seouewe to ♦ * 19* 

♦ HtFIB • ♦♦♦» 



♦ SET RIGHT ♦ 
.X^*OPRNO ADD TO ♦ 

♦ GURR VAL m ♦ 
♦coot ADO CNTR* 



*B6 * LEFT OPERAND 
* * ♦ TRIAD 7 

*** * * 



V 


TC12 


V 


«♦**♦«****«♦**» 




***«**«*« *«*«^** 


♦ ♦ 


*♦♦* 


• • 


♦ set ♦ 


* * 


* SET LEFT OP ♦ 


♦ INSTRUCTION *., 


.X B7 ♦ 


♦ ADD TO CODE ♦ 

♦ ADD ASSOC ♦ 


* SEQUENCE TO * 


♦ 19^ 


♦ MtRFIB ♦ 


*•«* 


♦ WITH TRIAD ♦ 


m^i^*.*-****^***** 




*«***««>|i«***4i*4i 



♦ DETERMINE ♦ 

♦ CONOTTION * 

* CODE FOR * 

* BRANCH * 
*************** 



*************** 



RUCT._.. 

SEQUENCE TO 

» mJjump ^ 

*************** 



• X B7 * 
* 19* 
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TCB35 

♦♦* ♦ » 

* ♦ *PLACE OFFSET ♦ 
♦Al ..X* TO AOOR IN ♦ 

♦ * * INSTRUCTION * 
♦♦* * PARM TBL * 



«**4c*4t:^4>**«*4>** 



*4i4'**4i4>**4.4'«4>4c4t 





TC99 


V 


4c*4t4i4c«*4<4c4i4c4i4c*« 






* SET UP INST ♦ 


**** 


* * 


*PARM TBL FOR * 


» ♦ 


♦ ADD 22 TO ♦ 


X* PROC OF SUB *...X AO * 


* CODE SELECT ♦ 


*STRNG BY ARG * 


♦ 16* 


♦ INDEX * 



**Hi************ 



4:4i*4c4c«***4'4i4<**4i 



♦YES ***♦ 
* ♦ * 
*X B6 * 
* 25* 
*♦♦* 



******4ti|c«4i4c«*4i* 



* * 
X CI* 

* * 
♦♦♦ 



* *YES 

RIGHT OPERAND * 
REGISTER SIGN * 
PLUS ? * 



«**«4i« 4c 41*****41 * 



*************** 



TC«36S 

* ♦ 
♦ X C8* 

* * 
*** 



*** 

* * 
*C6 

* 4c 

* ♦* 



* ADO 12 TO 
. X* CODE SELECT 
» INDEX 
* 
************** 



TCB37 

**♦* 

* * 
.X BO * 

* 25* 
♦*** 



*************** 

* * 

* ADD 20 TO * 

* CODE SELECT *. 

* INDEX * 

* * 
*************** 



*** 
* * 
.X 08* 



*************** 



TCB365 V 


TCB37 


TCB395 V 


TCB37 










* * 


**** 


** * ♦ 


**** 


*ADO OFFSET TO* 


* * 


♦ * * RESET * 


* * 


..X*LEFT OPERAND ♦. . 


.X BO * 


*D8*..X* 1»ARAM£TER *,. 


.X BO * 


♦ ADDRESS * 


♦ 25* 


* * *FLAG ON LEFT * 


* 25* 


* * 


♦*** 


** * OPERAND * 


**** 






*************** 
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♦TCOOE 



TCB37 

* ♦ ♦SET INSTRUCT ♦ 
♦BO ..X^ SEQ USING ♦ 

♦ ♦ ♦ CODE SELECT ♦ 
♦♦♦ ♦ INDEX ♦ 



♦*VINSA ♦ 

♦ GENERATE ♦ 
♦INSTRUCTIONS ♦ 

♦ ♦ 



TC125 
♦**♦ 



TC12 

* 4> ♦♦*♦ 

♦ SET ♦ * ♦ 

x+ instrix;tion ♦,,.x bt ♦ 

♦SEQ TO M$CPX8+ ♦ 19^ 



:tc*4c««*4<]»4c***«4t4c 



TC12 



♦ SET 

♦ INSTRUCTION ♦...X 87 ♦ 

♦ SEQ TO ♦ * 19^ 

♦ M*CPXI2 ♦ ♦*♦♦ 



♦ ♦YES 

RIGHT OPERAND ♦ 
CORE SIGN ♦ 
PLUS ? ♦ 



*^**:t:^,^f***** 



♦ SET CODE ♦ 


♦ * 


X^SELECT INDEX ♦.. 


.X C6 ' 


♦ TO ZERO ♦ 


♦ 24+ 


♦ * 


♦*** 



m******** 



♦ ♦YES 

RIGHT OPERAND ♦ 
REGISTER SIGN ♦ 
PLUS 7 ♦ 



TCB36 

* * **** 

♦ SET CODE ♦ ♦ ♦ 
.X+SELECT INDEX ♦...X C6 ♦ 

♦ TO 2 * ♦ 24* 

* * ♦*♦* 



TCB435 V 


TCB3 


«**«***«*****«* 




♦ ♦ 


♦♦♦* 


♦ SET CODE ♦ 


♦ ♦ 


♦SELECT INDEX ♦. 


..X C6 


♦ TO 4 * 


♦ 2*^* 




*♦»» 



♦♦♦♦♦♦♦♦♦♦♦•^l** 
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STCOOE 



TCB20 

*** ♦ ♦ 

* ♦ * ALIGN CODE * 
*A1 ..X* ADO CNTR TO » 

* * * FULLWORD ♦ 
*♦* * * 



4c4r«4c4i**:»4c*4i4r 



* ♦* 

* * 

*B1 

* ♦ 



* COMPLETE ♦ 
X* CONST TBL * 

♦ENTRY FOR DSA* 

* LENGTH ♦ 





TCB60 


**♦ 


♦ 


* ♦ 

*C1 . 

* * 


*SAVE CURRENT 

.X* VAL OF CODE 

* ADO COUNTER 



♦CHANGE TRIAD 




* 


* OPERATOR TO 




.X A4 


* DEF ADD 




♦ ZZ 


* OPERATOR 




♦*♦* 




tf* 





tcilHi^i*********** 



«4c*4c4i«4<****4c*4<« 



4r4c4i*««:^4i4c*4c4[4c4i« 



ADD ENTRY PNT 

IHESADA TO 

LIB REO AT 

RUNTIME 



GENERATE CODE 

TO COMPLETE 
PROLOG CHAIN 



GEN CODE TO 

SAVE LOC CNTR 

FOR RUNTIME 

DIAGNOSTICS 



li BLUCK A 
PROCEDURE ' ♦ 




* 




* * 




* <c 




* YES 




V 


Ttl2 I 


«*«*«i»4c««4[«*4[ 




* 


♦ ♦♦* 


SET * 


* * . 


INSTRUCTION *.. 


.X B7 * . 


SEQUENCE TO * 


* 19* . 


MSENDP * 


**** 


4t»4i*4t4c4c4c**4[** 





TCB74 V TC12 

* * ***4c 

* SET * » * 

* INSTRUCTION *...X B7 ♦ 

* SEQUENCE TO * * 19* 

* M$ENDB ♦ **** 
*************** 



*************** 

* * 
♦ASSIGN CONST * 

* TABLE ENTRY ♦ 

* FOR OSA ♦ 
♦LENGTH (CONT)^ 
*************** 



*************** 

♦ * 
♦RESERVE SPACED 

♦ IN STATIC ♦ 

♦ STORAGE FOR ♦ 
♦THIS CONSTANT^ 
*************** 



*************** 



************** 

* 

SET * 

INSTRUCTION ♦. 

SEQUENCE TO ♦ 

MSBLOK ♦ 

************** 



♦ SET ♦ 

♦ INSTRUCTION ♦. 

♦ SEQUENCE TO ♦ 

♦ MSPROL ♦ 
*************** 



* SAVE CONST 

* TBL PTR IN 
♦BLK INFO TBL 

* ENTRY • 
*************** 



♦...X DI+ 
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*** 
*A1 



TCB04 

*$NLS13 * 



1[4>« )!***«**♦ 



♦ * 
♦CI 

♦ ♦ 



* * 

* RESERVF h * 
.X*BYTES OF CODE* 

*STOR FOR END * 

* ENTRY * 



ADD ENl'RY Pl 
TO RUNTIME- 
LIB RfQ 



CALL HAVE A 

PARAMETER 

LIST ? 



* SET ♦ 
.X* INSTRUCTION ♦. 

* SEQUENCE TO * 

* M$LIBN * 



TC12 

H, A *♦♦* 

* SET * « * 

* INSTRUCTION *...X B7 * 

* SEQUENCE TO * * 19* 

* KSLIBC * **** 



« * 

* RESERVE 20 ♦ 
♦BYTES OF CODE* 
*STOR FOR SYMB* 

* TBL * 



* * 

♦ MOVE SYMBOl * 

* NAME TO ♦ 
♦SYMBOL TABLE ♦ 

♦ ENTRY ♦ 

:^:^:t ************ 



fCB26 

iji*****;tf^:^^**^t** 

♦MOVE DED AND ♦ 

* NO OF ♦ 
♦DIMENSION TO ♦ 
♦SYMBOL TABLE ♦ 

* ENTRY * 

^L*****^L7ti*****^ti^ 



m**#ff*:tf ******** 

* MOVE ♦ 

♦ ADDRESSING ♦ 

♦ INFO INTO ♦ 
♦SYMBOL TABLE * 

* ENTRY ♦ 
it^******^t'****** 



♦ * * SET ♦ 
♦C6*..X* INSTRUCTION ♦. 

♦ ♦ * SEQUENCE TO ♦ 
*♦ * M$SYM ♦ 

«r««4c« 4c A* ♦♦«««*♦ 



V 


TCB275 








«♦* 


FORM END OF ♦ 


♦ * 


SYMBOL TABlf *. 


.y(f^* 


ENTRY * 


« * 



^*1,*****t**^ *** 
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* SET ♦ 
.X* INSTRUCTION ♦. 

* SEQ TO ♦ 

* MSBLREG ♦ 



♦ ♦ ♦ SET ♦ ♦ ♦ 
♦CI ..X* INSTRUCTION *. . . X B7 * 

* * ♦SEQ TO MSENDO^ ♦ 19* 

*** * * **** 



TCB70 

♦ SET LAST ♦ 

♦ PROLOG CODE ♦ 
..X^LINKS TO CURR^ 

♦ CODE ADDS ♦ 

♦ CNTR ♦ 
*************** 



LEFT OPER&N") .......... 


♦ LEFT OPERAND 
...X SUBSCRIPTED 


A TRIALS 7 ♦ 
* ♦ 
* » 

* * *** 
* NO * * 
X * A^ ♦ 


♦ LABEL ARRAY 

* 

♦ ♦ 
♦ NO 


* * 
*** 
TCB59 





TCB575 TC12 

4i4c4c4'4'*4t4'«4<4'4i*4>* 

4c * **** 

♦ SET * * * 
...X^ INSTRUCTION ♦...X B7 ♦ 

♦ SEQ TO ♦ ♦ 19+ 

♦ MSSFMAT ♦ ♦♦♦♦ 

4c4i4<4'4c:»4i:»4i4'4i4c4i*4t 



4c*4i4c4i4c4i 4i4e4i4e 4i*4c 4c 
4c 4c 

♦ SET LEFT ♦ 
♦OPERAND ADOR ♦ 
♦TO CODE ADDR ♦ 
♦OF ITS TRIAD ♦ 

*4c4c4c4c4c4c4'4c4c**4c#4c 



CB57 V 


TCI 2 


4'4c4c*4c4c4c4'4c4c:^4c4c4c4c 




4c 4- 


4c 4c 41 4" 



♦ SET » 4c 4. 

X+ INSTRUCTION ♦...X B7 ♦ 
♦SEQ TO MSCALL^ ♦ 19^ 
4c * **** 

*************** 



************** 



RES SPACE IN 

CODE TO 

BRANCH TO 

PROLOG CODE 

CHAIN 



41 4c 4c * 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 

♦ * 

♦ SET PROLOG ♦ 
♦TERM ADDR TO ♦ 

♦ CURR CODE ♦ 

♦ ADDR CNTR ♦ 

«4c4c4t4>4c******4c:^4c 



♦ SLT * 

♦ INSTRUCTION ♦. 
♦SEC TT MtFMAT* 

4- * 

***4c4c**4c4c4c4c4c*** 



4c 4c 4c 4c 4c 4c 4> 4c 4c 4c 414c 4c 4> 4c 

♦ * 

♦ SET INSTR ♦ 
♦PARM FOR CALL^. 

♦ TO IHESADC ♦ 

♦ LIB ROUT * 

4i*4ci»*«4i4t 4> *4c4c4c 4>« 



.X AI ♦ 

♦ 27^ 

♦ ♦♦4> 
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TGC90 TC12 

♦ ** * ♦ »♦♦* 

♦ * ♦ SET ♦ ♦ ♦ 
*A1 ..X* INSTRUCTION ♦...X B7 ♦ 

♦ * ♦ SEQUENCE TO * ♦ 19* 
♦♦♦ ♦ MSSPCR ♦ ♦*** 



TCB50 TC12 

♦** ♦ ♦ •*** 

* * ♦ SET ♦ * » 
*A5 ..X* INSTRUCTION ♦...X 87 ♦ 

* * * SEaUENCE TO ♦ ♦ 19* 
**♦ ♦ MSBEGD ♦ ♦*** 



DOPE VECTOR 

ELEMENT 

MULTIPLY 

OPERATOR 



•FORM OFST OF * 

.X*DIM MULT W/IN* 

♦DOPE VEC FOR ♦ 

* RGT OPERAND * 



:^f ************* 

* * 
*FORM OFST OF * 

.X*DIM MULT W/IN* 
*DOPE VEC FOR * 

♦ LFT OPERAND * 

********^:**m*** 



TCA986 TCI 

4c*4: ************ 

* * **** 

* SET ♦ ♦ ♦ 
...X* INSTRUCTION *...X 87 

* SEQUENCE TO * * 19* 

* MSDVM4 * ♦*** 



*************** 

* * **** 

* SET * * * 
.X* INSTRUCTION *...X 87 * 

* SEQUENCE TO * ♦ 19* 

* M$DVM2 * **** 
*************** 



*************** 

* * 

* ADD RIGHT ♦ 
♦OPERAND OFST * 

* TO RGT * 
*OPERAND ADDR * 
*************** 



*************** 

* * 

* ADD OPERAND * 

* OFFSET TO * 

* DOPE VECTOR * 

* ORIGIN * 
*************** 



V TC12 

*************** 

* * **** 

* SET * * * 

* INSTRUCTION *...X 87 * 

* SEQUENCE TO * * 19* 

* M$DVM3 * **** 
*************** 



V TC12 

*************** 

* * **** 

* SET * * * 

* INSTRUCTION *...X 87 * 

* SEQUENCE TO * * 19* 

* MSDVMl * **** 
*************** 
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$TCOOE 



DOPE VECTOR 

STORE 

OPERATOR 



HALFWORD 

SUBSCRIPT 

OPERATOR 



♦♦* 




4> 


♦ NO 


* * 


* 


RICH OPERAUO * 


*A2 * 




AT RIBUTE 




* * 


* 


PO NTER ? 


* 



************* 



* SET ♦ 
.X* INSTRUCTION *. 

* SEQ TO MSSDV3* 

* * 
*************** 



TC12 

**** 

* * 
..X B7 » 

* 19* 

♦*** 



****** ******** 

* * 
*FC«M FST OF ♦ 

* DP V C ELEM ♦ 

* W/I\ OP VEC * 
♦FOR R iT OPND * 



* SET * 
.X* INSTRUCTION *. , 

*SEQ TO M$SDV2* 

* * 
*************** 



*** 

* * 
♦C4 



* SET CODE * 
.X*SEL£CT INDEX ♦ 

* TO ZERO * 

* * 
*************** 



♦ DETERMINE * 

* SIGN OF * 

♦ RESULT * 

* ♦ 
*************** 



*************** 

* * 

* SET * 

* INSTRUCTION *. 
*S£Q FROM CODE* 
♦SELECT INDEX ♦ 
*************** 



TC06 
************** 
♦GENERIOQ 



************** 



A PARAMETER ? * 




* * 




* * 




* * 




* NO 




V 


TC12 '. 


*************** 




* * 


**** 


* SET ♦ 


* * 


♦ INSTRUCTION *.. 


.X 67 * . 


♦ SEQ TO MSNULH* 


* 19* . 




**** 


*************** 





i^*******it****** 



**** 



* SET 

- INSTRUCTION *...X B7 

*SEQ TO MtAEXP* * 19* 

* **** 

^***** ********* 



TC125 

♦ ♦♦* 



*******1k9****** 





AOL 


IGHT 


* 


♦DPRND 


FFSET 


* 




TO - 


lOMT 


♦ 




QPRN, 


ADOR 


* 







* SFT ♦ 

* INSTRUCTION ♦. 
*SFQ TO M$SDV1^ 

* * 
*****if********* 



TC12 

♦** ♦ * *♦*♦ 

* * ♦ SET ♦ ♦ ♦ 
*C6 ..X* INSTRUCTION *...X 87 ♦ 

* ♦ *SEQ TO MSLINE* ♦ 19* 
*** * * **** 

*************** 
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* * 

♦PUT DISP TSGN* 
X* TO PARM 2 * 

* (PADD+2^) * 



*** * * 

* * *SET FIRST AND* 
♦CI ..X* SECOND ♦ 

♦ ♦ * OPERANDS AS * 
*♦♦ ♦ CONSTANTS ♦ 

*************** 



*************** 

* ♦ 
♦ADD DISP TSGN+ 

♦ TO LEFT OP ♦ 

♦ ADDR (PADDJ * 

* * 
*************** 



V TC12 

*************** 

♦ * **** 

♦ SET ♦ ♦ * 

♦ INSTRUCTION ♦...X S7 ♦ 

♦ SEQUENCE TO ♦ ♦ 19+ 

♦ MSTMXP ♦ ♦♦*♦ 
*************** 



*************** 

♦ * 
♦SET LENGTH 0F+ 

♦ STRING MOVE ♦ 

♦ TO 8 ♦ 

♦ * 
***^.*********** 



************** 

SET ♦ 

INSTRUCTION ♦... 

SEQUENCE TO ♦ 

M$TMX ♦ 

************** 



*************** 

♦PUT DISP -16 ♦ 

X^ INTO PARM ? ♦ 

♦ {PADD+12) ♦ 



OR IMMEDIATE 



*************** 

♦ ♦ 

♦ ADD DISP OF « 
*16 TO SECOND ♦ 
♦0PN0(PADD+I2)+ 

♦ ♦ 
*************** 



*************** 

* * 
♦PUT PARM ADD ♦ 

♦ INTO PARM 5 * 

♦ (PADO+60) ♦ 

* * 
*************** 



*************** 

♦ * 
♦PUT DISP TSGN+ 

X* TO PARM 2 ♦ 

♦ (PADD+24) ♦ 

♦ * 
*************** 



*************** 



TC12 
♦ *** 



♦ SET 

♦ INSTRUCTION ♦...X B7 ♦ 

♦ SEQUENCE TO ♦ ♦ 19^ 

♦ MSASST ♦ ♦♦♦♦ 
*************** 



*************** 

♦ ♦ 

♦ SET ♦ 

♦ INSTRUCTION ♦. 

♦ SEQUENCE TO ♦ 

♦ MJMVL ♦ 
*************** 



*************** 

* * 
♦ADO DISP TSGN^ 

♦ TO LEFT OP ♦ 

♦ ADDR (PADD) ♦ 

* * 
*************** 



V TC12 

*************** 

♦ * **** 

♦ SET ♦ ♦ * 

♦ INSTRUCTION ♦...X B7 ♦ 

♦ SEQUENCE TO ♦ ♦ 19+ 

♦ M$ORIP ♦ ♦♦♦♦ 
*************** 



V TC12 

*************** 

♦ * **** 

♦ SET * ♦ ♦ 

♦ INSTRUCTION ♦...X 87 ♦ 

♦ SEQUENCE TO ♦ * 19^ 

♦ MfORIP ♦ ♦♦♦♦ 
*************** 
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. f TOPR 



$TOPk 

4c ;(< 4i * 4< !(> 4< V^* * iC * ^c ♦ 4c 



.X* BRANCH ON * 
♦OPERAND TYPE ♦ 



IDENT ATTRIB 
ENTRY ? 



♦YES ♦♦♦♦ 
♦ ♦ * 
♦ X C3 ♦ 

♦ 3* 

♦ ♦*♦ 



♦ StT INST ♦ 

♦ PAkAM TbL ♦ 
♦COKE ANU REG ♦ 

♦ SU.NS Of BTH ♦ 

♦ OPNDS ♦ 



♦ ♦ 

*:>tT INST PAkM^ 
» ToL TGKlN ♦ 

♦ t-LUS OF BTH ♦ 

♦ UPNUS ♦ 



♦ ♦ 

♦ SET FLAb TO * 

♦ INOIC LEfT *... 

♦ GPNU PKUCNG ♦ 

♦ * 



T035 
♦YES ♦♦♦♦ 



CURRENT DSA ? 



♦ X CO ♦ 
♦ 2* 
**♦♦ 



♦ 


(TFS 


«**♦ 


HALFV^RD 


♦ 


* 


* 


AOD;FULLWHD 




♦ X 


no 


DDJARRAYCSDV 


* 


♦ 


?♦ 


ADDktSS ? ♦ 




♦*** 



♦ * 








T04C 


* *■ 










« 


♦ YES 


♦**« 


pseudgvak: 




♦ 


4c 


4c 


NULLJ STATI 






♦ X 


Bl ♦ 


ADDRESS ? 




♦ 


* 


?♦ 


4c 


* 




«4c4c4c 



REGISTER ? 



♦ 4c 

♦ NO 



TYPE = OTHER 



♦ SET OPRND ♦ 
.X^COPE ADDRESS ♦ 

♦ NULL ♦ 

♦ * 

4c 4c 4c 4c 4c 4c :«( 4c :(c 4c 41 4c >ic « 4c 



T026 


4c 4c 4c 4c 4c« « 4c 41 4c 4c 4c 4c 4c 4: 


TO.^f 


4=4c^4= 


4c « 


«*»;:* 


* 4c 


♦SET OPRND PEG* 


* * 


X 62 ♦ 


♦ ADD FROM ♦. 


.,x r" 4- 


♦ 2 + 


♦ OPRNO TOKEN ♦ 


* 24C 


4c 4c 4c 4= 


« 4c 
4c4c4c4c4t>!c«4c4c4c4c4c4c4'4c 


4c •>;-!: 4- 



iN-LlNL BIF! 

CODE ADDR; 
AUCON ADOR. 



T040 

♦YES ♦♦♦♦ 
* ♦ * 

♦ X 61 ♦ 
? ♦ ♦ 2^ 

<< 4C4C4C4C 



* ♦ Tf 70 

« ♦ 

♦ *YEi 4c**4= 

♦ Oho CONSTANT, 4c » 4c 
POINTER AODR ♦X CO ♦ 

41 ? * 4t 3* 



TO 34 

4c « 4c 4c 4c 4C * 4c <c « 4c 4c 4: 4c 4c 
♦SNLSIB ♦ 

' 4c— — ♦ 

.X^ SEE ♦ 

♦ fPLLOWING ♦ 

♦ NOTE ♦ 

4c3;c4c4c4c4c« 4c4c4c4c4c4c*4c 



ACt FNi c'T TO 
RUNTIME LIB 



♦ >» T'-.65 
4c 4c 

♦ *YtS 4c**v 

* 4= 4c * 

♦ IMMtUiftft ♦X Pi * 

♦ CONSTANT ? * * ^* 
41 « 4:4c** 

♦ ♦ 

♦ 4= 



* » * 

TRIAD ? vx E^ ♦ 



♦ ♦ Tl'^1 
♦ 4c 


V 
4c4c*4c*4c4c4c^4c4c4c4c4:« 


Tn2o 


♦YES *♦♦♦ 
CONSTANT * 4C ♦ 
BLE POINTt<^ ♦A C^ * 
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♦ *YES 

* * 

.X DOUBLE *. 

* PRECISION ? ♦ 



******«i******4i4i 



* USE STC OP ♦ 

* CODE ♦ 



^- 



*************** 



«*«**4r4c ******** 



.X* USE STO OP 

* CODE 



4c 4t*4c* ******** 



*f|0 *** 

* * * 

COMPLEX ? *X 86* 

* * * 

* »** 



*YES *♦* 

* * * 
COMPLEX ? *X B6* 

* » * 
* *** 

* * 
* * 
* NO 



* YES 



*************** 

* * 

* SET 2D ADOR * 
*T0 8; AMOUNT *. 
*0F TEMP TO 16* 

* * 
*************** 



*************** 



♦SAVE OP-CODE ♦...X 80 * 

* * * 7* 

* * •*** 

*************** 
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PL/ 1 SYSTEfIS MANUAL 
SVAS6C 



*$VGTMP ♦ 

* * 

.X* ASSIGN TEMP * 

* STOiiAGE ♦ 

♦ ♦ 



* ASSM CVRO ♦ 
♦ADDR FOR TEMP* 

* * 



4i 4c)|< « 4c 4e *4c 4c « 4ci(c 4c 4: 4. 

* 4? 

♦GENERATE: ST ♦ 

* lED) REG, * 

♦ TEMP ♦ 

♦ ♦ 

4i4c4c*4c4c4>4c4c4c4c4c4c4c4t 



IS A SECOND 

STGRfc 

kEUUIREO? 



4c 4c 4' 4C-4C >)( 4c 4c 4c 4c 4t « » 4^ 4c 

* 4c 

* COMPUTE ♦ 

* SECOND * 

* ADDRESS * 

* 4c 
4c4c«4c4c4c 4C4C «4c 4c4c4c4c4c 



4C4C 4c 4c 4c 4c 4c4c 4c 4c 4C4C « 4. 4c 

**VDSAt * 

4C ♦ 

* ASSEMBLE ♦ 

* COVERED ♦ 

* ADURESS * 

4c ic * 4c 4c 4c 4c 4c 4c 4c 4c4c 4c * 4c 



4c4c4:4c4c4t««4c4c4c4'4c4c4c 

* 4c 

*GENfcKAT£: ST * 

* (DEikfcO+1 *. 

* TEMP+N * 

* * 

*4c4c4c4c4c4c4c 4c4c4i4c4c4c4c 



4c 4c 4c 4c 4c 4c ♦^ 4c 4c 4c 4c 4c 4: 4c 
4c 4^ 

*ST CORE-SIGN * 
.X*ANO CORE-ADOR* 

* IN TRIAD ♦ 

* (CONTI * 
4c4c4>4c4(4e4c4c4(***4'4c« 



4c 4c 4c 4c 4c 4c 4c 4< *♦« 4c « 4c 4c 

* 4C 

* (USING * 
♦SPECIAL CODE * 
♦FOf ADDR-TYPE^ 

* fFSULTSI ♦ 

4c 4c 4c « 4c 4c 4c 4c 4c ♦ 4^ 4c 4c 4c 4c 



«4c4c4c4c4c4c 4c4c«4c4c4c4c« 

♦ « 
♦CLEAR AOD-REG* 
♦ADO IN TRIAD, ♦ 

♦ If RES ARE * 

♦ ADD-TVPE ♦ 

<= 4c#4c 4c 4c 4c 4c 4c 4c*4c«c 4c 4c 



4c*4t 

4c 

C3* 

4c 


4c 4c #* 4c 4c 4c 4c 4c 4c 4c 4c 4! 4c 4c 

J EXIT 


4««* 


4c 4c 4: 4= ^ 4c 4C «c 4c 4c 4c 4c 4c 4c 4c 
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pl/i systems manual 

$VASGC 



jfc 4< 4i « ^c j»c <( #* » « J(c ^c 41 4c 
♦SVFREE ♦ 



*tXAM SPtC REG* 
♦ TBL tNTKY ♦ 



4t « « 4c # :(ci([ :tc :(r 4< « 4< * « « 



4c*«4c4e4c4t4(4c4t«#4t4c4c 
*$VSAVE * 

* SET PolNtip"* 
♦TO SPECIFIED ♦ 

♦ * 



*$VRSYM « 



* SET PniMTER 
♦TO SPFCIFIFD 



4c4c«*«:|(4<*<'4c**4<«4' 



RIGHT HALF OF 
uBL ktG ? 



SINGLt KtG ? 



i^UMPLtX 
KfcbOLTS ? * 



4>:»4c4(4t4c4c«4c«4c***« 
♦VS380 AO* 

♦ GENiiRATi ♦ 

♦ STORE INTO * 

♦ TEMP ♦ 



fXIT 



♦ RE*ov«^ =i 
♦SYNONYMS f»"V* 

♦ DEG * 



4iXc«««:^«4i«««/-«< 



FXn^ CANNiiT 
fat fl-EED 



4> « 

* ohaNLH L'N * 

* LAST-USt af * 

♦ Hthi LUkR ♦ 

♦ TKIAl. HU* * 



♦VS380 AO* 

♦ GtN STCRE * 

♦ INTO TEMP * 

♦ * 



« « « j(c 4tc * :(c 4t4c 3ti :tc« « ♦ « 

♦VS290 _ 80* 

♦ REMOVE SYNS *. 

* FROM KEG * 



«:(c«<*4<« 



c««4[«4c4c«4> 



fcXIT, FREE 
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PL/I S¥ STEWS »AN*fAL 
tVCLR 



i(c 4(41 » 4i * «**♦♦*♦♦ ♦ 

SVCLR 

4i«4<*4i*4'4(4e4c4'4>4c4c4c 



VALUE GIVEN 

FOR OSA 

REGISTER 

♦CONTENTS ? ♦ 



4.4(*#4c4(4<4c4(4'*4c4c4<>|t 



.X* USE OLD DSA * 
♦REG CONTENTS * 



4c 4<4c«4c4>4t ♦«♦♦♦♦♦♦ 



REGISTER 
TABLE 
INITIALIZA- 
TION 



INITIALIZA- 
TION ? 



4t4'4'*4(4<««4'4c*4e4'4c4' 

♦ * 

♦ GET FREf * 

♦ SPACE FOR * 

♦ TABLE ♦ 

♦ * 

4c4c 4c4'4' *4<4' 4i4c4<4' ♦« 4^ 



4e4c4'«4' 4c4c4c4'4'4'4c4c9^4' 

* ♦ 

* SET INIT PTRS* 

* FOR ENTIRt ♦ 
♦TA&LE, FIXED * 
♦REGS., <CONT)^ 

4c4'4'4'4<4c4c«4'«««c4c4e« 



4(*4'4'4c4i4(*4<4t4t«4<4c4' 



4c4:4c««4>««««4c4c«4c* 



4(4'*4(4'4'4(<t(4c^«**^* 

♦ 4c 
♦MOVE INITIAL * 

* VALUES INTO ♦ 

♦ ENTIRE REG ♦ 

* TBL ♦ 

4i 4'4' « 4c 4(4' * 4> * ♦ 4(4( 4c * 



«4'4c4E»4<4(i^«4t4<4'4e4i4c 

♦ * 

♦ SET BASE ♦ 
♦VALUE FOR OSA^. 

♦ REG ♦ 

♦ * 

4c4c4c4c«4'4t 4c4i4c4c4c4t4c4t 



4(4e 4( 4c « 4(4< *4c * 4'^ 4c *4' 

EXIT 
4e 4c 4c 4c 4c 4c4c 4c4c 4c 4(4c * 4c« 



4( 4c 4c 4c 4c 4c 4c 4c * 4c 4c 4c 4c 4c « 
4c 4c' 

♦CLEAR ENTIKE ♦ 

♦ TBLjCONSTRi»CT^ 
♦CHAIND LST 0F+ 

♦ SYN ENTRIES * 
« 4c 4c 4= 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4(4c4c4c4c4c4c4c4c4c4c4c4c4c4c 



♦INIT HEAD OF *...X C0+ 

♦ SYNONVM LIST 4c 4c * 

* ♦ ¥«4c 
4: 4c 4c* 4c 4c 4c ]^ 4c 4c 4c 4c 4c 4c 4c 
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SVOSAC 



*VUSAC 



STOkAGE 

ADDRESS 

ASSEMBLER 



IS BASE CODE 
= SUBSCRIPT ? 



VD005 

*♦** 

* f 
*X 80 * 

♦ 2* 
*♦♦* 



^:f ************* 

* * 

* USE GIVEN * 

* DISPL AS * 
*OUTPUT VALUE * 

* ♦ 

^i:ti^fitiiti:ti********* 



*** 
* * 
*A4 



RESTORE 
REGISTERS 



^i4i:tc**A'********* 



4i:tf************* 

EXIT 

:ti************** 



IS SS IN A 

REG ? 



4c # 4c « ;(c ;«c :<( « 4( * 4c* t '("•' 



♦USE REG ADDR ♦ 
♦ OF SS ♦ 



4c4:4c«4c4c4'4c4c#*«4c4'« 



.X IS INSTR AN 
* SS TYPE ? 



IS INSTR AN 
SS TYPE ? 



*************:tLn:i 



***;tt*********** 

* * 

♦GENERATE: LA ♦ 

* AOCON REG ♦ 
♦0(SS REG CODE* 

* COVER) * 

**^*1Ht**t'****** 



*^i4'iti:tf4im******** 

* * 

* SUPLY ADCON * 
*R£G AND DISP ♦ 
♦OF AS FINAL* 
♦ASSEMBLD ADDR* 
*^(jti^*ni*1nti****** 



* ♦ * 
♦B9*X* 

* * * 



*m**^*****m***** 



4c«4>*««****4t>tc**4c 

♦SUPLY SS REG * 

♦& CODE COVER * 

.X* REG AS DBL ♦ 

♦ INDEXES * 

* (CONT) * 

*^^irlf^:*:tt ******** 



*lt:***^il^**1^***:^i^, 

* * 

* WITH DISPL. ♦ 

* OF FOR *. 

* ASSEMBLED ♦ 

* OUTPUT * 
4c«4<4c*** ******♦« 



:«c 4r 4c « « 4c 4c 4: « 4e 4c 4c !4e :«c 4t 

* * 

♦USE BASE CODE* 
♦GIVEN IN DOPE* 

* VECT FLAG * 

* ♦ 
4c4c4c4c*itc4c4c4c*4c*4c4c* 



4c4c4(«**4'4c4c«4t««4c4c 



V0005. 
**** 



♦SET SUBSCRIPTS. ..X BO ♦ 

♦ FLAG * * 2* 

* 4c *♦** 
4c4c4'4t*4c4i*4c«4c4c4c4c4c 



4c 4c 4t 4c 4^ 4c 4c 4c 4c « 4c 4= 4c 4c 4c 



♦SUPLY BSE CDE+ 
♦FOR TEMP STOR*. 
♦ (STATICt IF ♦ 
♦OUTER BLOCK) ♦ 

4c4c4c4c4c4c4c«**4c4c*4c4c 



4c«4i»4<**4<*4c*4t**4i 
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♦*» 




* 






* m 


♦ 








♦BO ♦ 




IS 


ADDRESS 


A 


♦ « 


« 




PARAM ? 




*** 




* 







VOOIO V 

♦VD300 BO* 

4< «-5 « 

* FIND aST ♦ 

* COVR REG * 
« ♦ 



NO BOOTSTRAP 
NE€OED ? 



NuT FOUND ? 







V0070 


* 
* 


YES 

♦ 


♦ * 
*X AO ♦ 

♦ 3* 
♦*** 



BOOTSTRAP 
NEEDED 



VDOSC 

*VD400 DO* 

..X* BTSTRP REG ♦ 

♦ TO 3R0PR \/AL * 

♦ ♦ 



4[**«4i«*4t4i«*4t«««)t 



.X*S63MICH ADCON ♦ 
* REG TBL * 



«4']^*4c^]|c:*.«4t«4c«^* 



« *YPS *♦♦♦ 

IS PARAM ADOR ♦ * » 
ALREADY ♦X 84 
LOADED IN A « ♦ 4* 
♦ REG ? ♦ ♦*** 



^(^^^^♦♦♦♦♦♦♦♦♦♦« 
♦VD300 BO* 

*FNO 8ST COVR*^ 
» REG FOR PAR ♦ 
♦ * 

*«4c« ♦*♦«♦♦**♦♦« 



BOOTSTRAP 
N£6D£D ? 



VDO'^0 

♦YES ♦** 

* * * 
*X B5* 

* * ♦ 
♦ ♦** 



NOT FOUND ? 



♦♦♦ 
* * 
.♦04 * 



NO BOOTSTRAP 
NEEDED 



y/0076 V 

111 4i« ♦««:**♦ «:♦**♦* 
♦iVASGA * 
*-- . ♦ 

* GET AOCON * 

* REG * 

* * 



VD060 V 

*** * ♦ 

* » * CONSTRCT ♦ 

* Bb ..X*ASSMBt.J 3SE Si* 

* ♦ * OISPLCrtNT * 
*♦* ♦ ♦ 



VD190 

♦YES ♦♦** 

* ♦ t 
*X 80 * 

♦ * /f* 
♦ *♦** 



* PREPARE: , ♦ 

* ADCON PEG, ♦ 

* 4095(0, * 

* PERMANENT ♦ 

* REG) * 

^It:illi(t1ti1f4t ******** 



# «1(( ♦^E^t 4i 4c «:♦ <(**♦♦ 

♦V0440 ^ C2* 

♦ "bTSTRP TO *>. 

* RE^'D /AL * 

* ♦ 



vccii * 



VD230 



*♦♦ * *¥E$ **♦» 

* * + m * * 
*B3 * is AuDR A *X CI ♦ 

* » ♦ suasc^:PT ? * * ^* 

♦*♦ « ♦ ♦««<tc 

* * 

* ♦ ♦**# 
♦ NO * * 
..,..<* A4 » 



Chart 39. Storaqe Address Assembler (Pag^a 
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*A0 



70 * 


ik- 






VD075 


♦ 




* 






sj- 






*YFS 


t-t** 


IS 


^KEA 


* 


•r ♦ 


AUDPS 


£ScO 


6V 


^X 04 * 


A 9c 


■<K*NENT 


* 


* 2-t 


«REGf 


STEP. 


? 


* 


♦ ♦.-F* 



* LGCT5 ELK * 

* W/MATChiNb * 

* BSE CCE IN * 
*B1K INFO TBt * 

*Aj(c«*W** ****** 



*«:».*4>.***V****** 

*CCMPUTE ADDR * 

* CF DSA * 

* PUIME^ * 

* WITHIN The * 

* BAA * 

«J|t:»^^*4:;«c4<****** 



VD}.40 

V9(-***«*******:r * 

*$VASGA V 

«. .,.»-.^^<» 

. .X* GET ADCON * 

* REGISTER * 

* %' 



«**t**)^»4iMS****** 

* * 

*SET PEG TABLE* 
*FQR GIVEN REG* 

* rb BASE OF » 
♦ADCON tCONT} * 

^4t;^:^*^9 ******** 



♦ ***«** jK>*«***i<* 



* GF 



DISPL * 
► 095 * 



IS AUDfv CF 

USA POiMEn 

<4096 7 



*iVA5GA * 



*VD30G_. BO* 

* FiND BEST * 

* COVER REG * 

* * 

:^*#:|i«c;t(«4c*«4c**** 



*VES V** 



GEl AOCQN 
REGISTER 



*:«£** v*3jr*4:*«V*V* 



* **tjjc ♦♦*«**** :«f * * 

* * 

* GENEkATE:L * 

* REG, 3SAPTR ♦ 

* CAOCGN AREA * 
» REG) * 

:<<•(.♦***»******** 



**«v* ********** 

* * 

=p;^DICATi 3S4 * 
.x*base & ::2$PL * 

* 3R IN REG * 
*TABLE «CQNT} * 



««*«*«*«««*yjSr:p^ 



*:{:**•♦*♦ »;f.«t*»»«*-< 



;^ ;ir :»: 9^ % 4c 4c 4t « « 3^ 9tr ^ >^ ^ 

* * 

* GENERATE LA * 

* REG * 
*4095IOy^OCO^ * 

* AkEA REGI * 

**s3t*s!f**<r****»-5:* 



* *,\0 *** 

* ♦ « * 
IS OSA PTR *X A8* 

* ADDR <ei90 ? * * * 

* * *** 
* * 

* * *** 

* YES * * 
..........>:* A9* 



BOOTSTRAP ? 



NO 300TSTRAP 



VDi05 V 

*************** 
** *VD400 DO* 

*A8*. .X* BTSTRP KEG * 
* TO PROP VAL * 



** 



4c 4^*** ********** 



* ENTRY FUR *, 

* GIVEN REG * 
« * 

4c4c4c*****:tc4c***X * 



* * Vu050 

♦ « 

* ♦YES **** 

* * * 
DmTA OISPL > *X 85 * 

4096 ? * * 2* 
« * **** 

* * 

* * **** 



,X* 9f * 
* 2* 
**** 
VDO*-0 



VDllO V 

«*««*********** 

** * * *** 

* * * GENERATE l * * * 
*A9*..X* REG. *...X B5* 

* * * DSAPOINTER * « * 
** * (REG) * *** 

4c4>*****>(c4c**4<*** 
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*** 




41 






* * 


* 


IS ASSMBLD 


♦BO * 




SS£ 


REG 


A 


* * 


« 


PERM 


REG 


? 


*#* 




♦ 







*4i«i|c 4c#4< **#**« ♦# 



.X#USE SAME REG *...X 82* 



il^******^^***i*^^** 



** 



*$VASGA * 



GET ADCON 
REGISTER 



4(4<)te«4i4E4c«4c«4c**«« 



4c4c«*4<«4>««#*4(«** 



GEN: L REG ♦ 

«b2*..X*DISP(eASE»T0 * 

* ♦ * LOAD PARA * 

** * AODR * 



«*4E4i*<<«4:««4'«4<«<c 



*MAKK REG TBL * 

* ENTRY AS * 

* CUNTNG THE * 

* PAR AM A DOR * 



VD230 

*$VASGA * 

..X* ASSIGN AN * 

* ADCON REG ♦ 

4c * 



♦ * 

♦GEN: tR ADCON* 
♦R£G,CDE COVERS 

♦ AN ADCON ♦ 

♦ REG.TEMP ♦ 
^(♦♦♦♦♦♦♦♦♦♦^(■♦♦^ 



VD175 V 


VD063 


V 


^■♦♦^♦♦♦♦♦♦^'♦♦♦^ 




^^^^^^^[♦♦♦♦♦♦♦^ 


♦ ♦ 


♦♦«♦ 


♦ ♦ 


♦ SET REG NO ♦ 


♦ ♦ 


♦SUPPLY ADCON ♦ 


.X^ AND DISP OF ♦. 


.X 88 ♦ 


♦ REG AND DTSP * 


♦ ♦ 


♦ 2* 


♦Of AS FINAL* 


♦ ♦ 


♦♦*♦ 


♦ASSEMBLD ADD ♦ 


^^'♦♦♦♦♦♦♦♦♦♦♦♦^ 




4r«*4c:(c««]««4c^^^^« 



^(^'♦♦♦♦♦♦♦♦♦^(♦♦^ 

EXIT 
««♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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V0300 

* * * 

♦BO X* t\TER 

♦ ♦ ♦ 



4i:f ************* 



4c*4i4(4t** **«*#♦*« 



4,4im*m********** 

* * 

* ;,U t NEXT I ♦ 

* ENISY IN * 
♦AOCON REG TBL* 

* * 

j(c ;(( It! « « i(c ;(r 4c « » 4c* ♦ stt 4c 



• BhIw^ 

<4006 1- 



1f:if*i^:lftt********* 

* * 

* SAVE OIF AS * 

* POTENTL ♦ 

* OUTPUT * 

* ♦ 
4(4:*4<«*4c4>4'4<«4'*4c4: 



^t7tf*lti^7tL4f******** 



♦STEP To NEXT ♦ 

* ENTRY ♦ 

* * 

**:tiilf4inf:tim******* 



-Nl Oh TABLE 



V0440 

*** )ic«:4ij|t4>4c«4>**4(*4e4'* 

*C2 X* eNTER 
* * * 

4c4c4e *^i4i1H)cm********* 



* EXIT HQ 

. ..X* BOOTSTRAP 

♦ NEEDED 



4i4>4c«**4>4c4>* ** Kr* • 

♦ PREPARE; t. A ♦ 

♦ REG ^ogsc^ • 

♦ RFG) * 

♦ » 

«***4c«4'4<4t«>t>» *«* 



♦ PL ALL ♦ 

. .«♦ PREPARE * 

♦ !NSTR IN ■'>■ * 

♦ CODF • 
4[4t#*4'*4'4c*****«t* 



^^[^^'itc******^** 



4[*«4(*4t* *♦*«**** 



i i Nt « -- Ait 

WITHIN 409"= 

Of OESI'?'-"^ 

* AOD» "^ * 



««*#*«« «4c* V #'«<)' « 

♦ t, 

♦ uPDA^c Ht 

♦ TBI ENTRV * 

♦ WITH MFw BAS*-* 

♦ ♦ 
<[*♦♦««♦ 4'*»***»* 



**#4c**^«^* ♦«*«:!> 

EXIT 
^(♦♦♦♦♦♦♦♦♦♦*««'> 



* ^YES 

♦ 
ANv Kcu FOUND * 



♦ i:> REG GLOP 
.X OR SYMB 

♦ ASSIGNED ^ 



exit 

BOOTSTKftP 

NEEDED 

**««*«♦«♦♦♦«>'' - • 



0m********''**** 

EXIT NL 
FOUNf 

•*))■♦«♦♦♦♦ 4c4i4c»» 
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:tH^:t. ************ 

$VGTMP 

Jtc:tli}i^:^,ti********** 



:tf ,(,****:)(******** 

* * 

* RESET * 

* LANDIUATE * 

* VALUE * 

* ♦ 

,tL4i:*****ir**:ifti*** 



#,tiXf*:^********** 

* * 

* GET tURKENT * 
♦ENTRY IN TEMP*. 

* TAbLE * 

* (S-TAbLt) * 



PL/ I SYSTEMS MANUAL 
SVG T MP 



* * * 

♦BO*X END OF TABLE 

» * * ? 



I5> TEMP AT 

REQUESTED 

LEVEL ? 



♦ ♦NO 

♦ IS LAST-USE ♦ 

Of 

♦ TEMP<CURRENT ♦ 
♦TRIAD NO.? ♦ 



*************** 

* * 

* bRANCH ON * 

* LENGTH OF * 

* TfcMP:L£NGTH * 

* DESIRED ♦ 
*****^********* 



♦YES ♦♦* 
* * * 
♦ X C2* 



♦ ♦NO 

NEW LENGTH ♦ 
SHORTER THAN 

PREV ♦ 
♦CANDIDATE ?* 



♦ * 

♦ retain temp ♦ 
♦tbl entky as * 

♦ Candidate ♦ 

♦ * 

« 41 :(c itc :(c :(c 4c Jtc ;$c « 4c ;(c ^ :(( # 



♦ * 

♦GET PREVIOUS ♦ 
♦ENTRY IN TEMP*. 

♦ TABLE ♦ 

♦ * 

;^^^^^:<f:i:;t'*****=i-* 



♦ ♦ 


VT060 


* ♦ 




♦ *N0 


*♦♦♦ 


* 


* * 


WAS ANY FREE 


♦ X AO ♦ 


TEMP FOUND ? ♦ 


* 2* 


♦ ♦ 


♦ ♦»♦ 



♦ UPDATE ♦ 
,X* LAST-USE NR ♦ 

♦ OF ASSIGNED ♦ 

♦ TEMP * 

***:ic********ilriSf*: 



**************ii 

♦ * 

♦ SUPPLY ♦ 
♦CCRE-ADOR OF ♦ 

♦ TEMP FOR * 

♦ OUTPUT ♦ 
^f ************** 



ti*:ti#****:»i****** 

EXIT 

^:tc,(f*iH>**:t^****** 
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PL/ I SYSTEMS HANUAL 
$VGTMP 



* CREATE HErt * 
.X*ENTRy IN TEM^* 



4c«4c:t(i«t««*««4t4l9|!4t« 



* * 

* LOCATE CURR * 
♦ENTRY IN BLK * 

* INfO T8L ♦ 

* * 



* ♦ ♦GET LOCATION * 
*COt..X* CTR FOR * 
f ♦ »SELECTEO AREA* 

♦# 4> * 



* * 

* BRANCH ON * 

* LENGTH OF * 

* TEMP NEEDED * 

* * 



FIRST BLK OF 
PROGRAM ? 



^ * 

♦USE BASE AREA* 

.X* OF STATIC *. 

♦ STORAGE ♦ 

♦ ♦ 



♦ ♦ 

♦USE BASE ARfcA^ 

♦ OF DSA FOR ♦. 

♦ blVEN BLK * 

♦ ♦ 



♦ ♦ 
♦ NO 



4c4t«:tc4c*4t4c*«*«4E^* 



♦USE LENGTH OF^ 
♦ 256 * 



«««««4[4E*#*4c«4i4i;|c 



#4(**«*>(c4c«4c4t««*« 



.X*ALIGN COUNTER*... 
♦ TO DBLWORD ♦ 



«««*«*« 3{eA«4c««4e](c 



* * 

X C7* 



:lc^:tf*****:******:t^ 



♦ALIGN COUNTER* 
♦ TO FULLWORD ♦ 



*«««««« ««*«*:(c*)(c 



4t«4t*«4(*:tc4c««4c4<«* 



* * * ASSIGN * 
*C7*..X* LOCATION TO ♦ 

* * * TEMP LIST * 
♦* ♦ » 



♦ ♦ 

♦ ASSIGN REQ * 
♦LEVEL TO TEMP^ 

♦ LIST ♦ 

♦ ♦ 



« « 4t :(c :«c 3tc # 4t # 4e % :|> 4c 4c « 

♦ * 

♦STEP COUNTER ♦ 

♦ BY AMT OF *. 

♦ TEMP REQ ♦ 

♦ * 



.X C2 ♦ 

♦ !♦ 

♦*** 
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PL/I SYSTEMS MANUAL 
$VINSA 



>VINSA 



* *■ 

* iNiT Lou UP ♦ 

* SYMdULlC ♦ 

* INSIK AND ♦ 

* TRirtU * 



» ♦ 

* tLhAK » 
♦bYMdULlC LdL ♦ 
»ANJ SYMo RtG ♦ 

* TAbLES ♦ 



**«»«»* ♦♦♦I'** « * 

* » 
♦KtitT UP CJUL» 

♦ MCIOIFK, ♦ 

* SCKTCH ♦ 

♦ iTUKAb€ ASbfir* 



* * 
» UJ>b iKu TYP ♦ 

♦ MSk, SfcT ♦ 

♦ LiPCUfc MUOIFk » 

* IL CcUNT) * 
4< «*««»«=«* #*4c4c 41 «[ 



» * 

♦ u t-Uk JBL FLT* 

♦ A'lO* fH ii(,L * 
♦J-lT A»fU« FK ♦ 
*HX PT UPkAT ♦ 



VNOOIO 

*i>£T QRIb 08J ♦ 

* cot L LSTNG ♦ 

* TU LUKK VAL ♦ 

* UF CUE LUC ♦ 
» cTk * 
»♦♦»»»♦♦♦♦*♦♦♦♦ 



* * ♦$!£? PUINTER » 
♦BO*..X*TU NEXT SYMb * 

♦ » ♦ INSTR ♦ 
♦♦ * ♦ 



4e«««**«*4c4i*«4(4[« 



*YES **♦♦ 



IS OPERATION 
A PSEUOO~OP ? 



♦ X SI * 
♦ iO* 
♦♦♦♦ 



♦ ALLOW ASGMT ♦ 
♦OF GEN REG ♦ 



«»*»«4i«;#*««4i4i4'* 



♦ ♦ 

*USNG SYM INST* 
♦CDE tNTRY FRM* 

♦ OPCDh T8L ♦ 

♦ £(CONT) ♦ 



♦ ♦ 

♦ bRK INTO ♦ 

♦ COMPONENT * 

♦ PARTS ♦ 

♦ * 
^m^^t"^* ******** 



* ♦NO 
IS SECOND * 

OPNO TO 8E 
USED IN A REG ♦ 

♦ 7 ♦ 



* ♦NO 

IS SECOND ♦ 
OPNO IN A R6G 

? ♦ 



*: * 

♦ MODIFY MAC« ♦ 
♦OP-CODE TO RR* 

♦ FORMAT ♦ 

♦ )»! 



SHOULD UPCDl 
♦ at MODIFIED ? 



^if**t********** 

* * 

♦ AUL* MUDIFR TU^ 
♦MACH UPCDE FR* 

♦ FiX/FLT, ♦ 

* SHT/LONG * 

^L************** 



*** 

* * 

♦ C* 



* 441*4: «4e«**«4'<'#« 



OP-CODE TYPt *X PI * 
= KR ? ♦ » ?* 



i^ LI:>liNo 

tNAdLtD? 



*««»«*««»«♦«*** 



♦♦♦*♦♦*♦*****♦♦ 

♦ * 

♦ IF FKi>T UPND ♦ 
♦IS PARAM MOV * 
♦INFU TO FiXD ♦ 

♦ AREAS PTO ♦ 
4r4t4t*****4(*«*«4"(' 



^mrt(*tt********* 

* * 
♦IF bLCNU UFNU^ 
♦IS PARAM MOV ♦. 
♦INFU TO FIXD ♦ 

♦ ARtAS PTO ♦ 

4t4c4<4[««4c4c«4c4c«*«:4 



♦YES ***♦ 



♦ * 

♦ *yls *♦** 

* * <- 
UP-COOE TYPt *X Al * 

= kS,SI ? * * •■»* 
«. * ♦ * * <t 



* * 
3P-C0UE TYPL ..X ri <■ 

= SS ♦ 9* 

***♦ 



VNOU^b 

«*«*««»4:4t*4r:»««* 

♦♦♦ ♦ MOVE SYMB ♦ ♦♦♦ 

♦ ♦ ♦ INiTR TO ♦ * ♦ 

♦ A-y ..X^ FiXtD AREA ♦...X 80* 

♦ « ♦AND bRK ll><TU * ♦ ♦ 
♦♦♦ ♦ LUMP PART * ♦*♦ 

«^4:«c4c4l*4[«**«*«4c 
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PL/ I SYSTEMS MANUAL 
SVINSA 



RR INSTRS 



« * 



IS OPNO -I A 
SYMB REG ? 



♦VN0570 Al* 

* 28 * 

.X* PROCESS OPND*. 

♦ -I ♦ 

* * 



♦VN0635 CI* 

« 2 7 » 

.X* PROCESS OPND* 

♦ -2 * 

* * 

******* i»4i«*4>*4c4t 



IS IT 

AiSlGNfcO YfcT 

? 



*X A6* 



* ♦ VN0080 

♦ ♦SO **♦ 

♦ ♦ * 

REG 1 = RfcG 2 ♦X B7* 

? ♦ ♦ » 

* ♦ *♦♦ 

* * 
.X* 86* 

♦ ♦♦ 



♦ YES 



IS OPNU -2 

REG AOOR IN 

USE AS SYMB 

♦ REG? * 



♦$VASGC ♦ 

* * 

.X» OBTAIN COMP ♦. 

♦ REG ♦ 

* * 



4t«**«*4> «:*«*«(♦«« 



♦ USE OPNO -2 ♦ 

♦ REG ♦ 



4'4'4'»*4>4i*4c^***4'4i 



♦ASSIGN KEG AS* 
X* OPND -I»S * 

* SYHB REG * 

* * 



*♦ ♦VN06i5 CI* 

» « ♦ 27 « 

♦A6*..X* PROCESS OPND* 
-2 * 



*« 



IS INSTR 

EFFECT = LOAD 

POSITIVE ? 



VN0020 
♦Yfcb »♦** 



^^(♦♦♦♦♦♦♦♦♦♦♦♦^ 



*VN0570 Al* 
* 28 * 

* PROCESS OPNO*. 

* -I * 

* * 



*X Bl * 

* 3* 

♦ ♦♦♦ 



VN0080 

***♦**«*♦*♦•#«* 

*** ♦ ♦ **** 

* * *GEN RR INST: ♦ ♦ * 
.*B7 ..X*OP OPNOl REG *...X AO * 

* * * UPND2 REG ♦ ♦ 3* 

* *♦ * * **** 
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«./! SYSTEMS HAftUAL 

tvmsA 



««•««««*»*««*#* 



. .X* BRANCH ON » 
* fcHFfcCT CODfe * 



»«»««««♦*«*«*«« 



RR LOAD 

NEGATIVE 

EFFECT 



RR DESTROY 
EFFECT 



♦ *YES 

EFhtCT COOE = * 
NU tPPtCT; * 
STURb ? * 



*«♦ 

* * 
.*B1 

* « 



IS LISTING 
ENABLED ? 



♦ ♦ 
* 

tFFtCl CUUL 
LOAD POSITI 

? 
* 

* * 
♦ » 

♦ NLi 


= * 

l/E 

* 


VN0140 
*♦* 

*X C2* 

* * 


V 

»$VLIST * 

« . * 

* LIST ♦ 

* GENERATED ♦ 

* INSTRS * 




VN0I40 V 

, ♦♦ » * 
.♦ * *HVE SYNS AND * 
♦C2*..X4 RESLT FROM * 
♦ * ♦OPND-2 REG Tt>* 
*♦ *0PN0-1 (CONT)* 


♦YES 


VN0130 

♦ ♦♦ 




,x. 






* 




V 

* * 
* * 


* 


VN0025 


It******* 

* 


LUAU NtGATI 
? 

» * 




* 


*X CI* 

* * 


* G£T LOC OF * 

♦ NEXT SYMb *. 

* INSTR ♦ 

♦ * 


..X A9 * 
♦ I* 




♦ REG REMOVE * 

* SYN CHAIN * 

* FROM OPND-1 * 

♦ * 



f CHANGE SIGN * 
•X* OF OPND -I * 

* REG * 

* * 
*************** 



REG TYPP 

ADCON ? 



REG TYPE 

COMP 



* SEE * 

* FOLLOWING * 

* NOTE ♦ 
*************** 



VN0123 

*YES **♦ 
* « * 
*X Dl* 
* * 

♦ ♦» 



REMOVE SYNS 
FROM OPNO-l 

REG 



* * 


VN0120 


♦ * 




* 


♦YES ♦*♦* 




* * * 


hl-FtCT CUDE 


♦ X Al * 


MULTIPLY ? 


♦ ♦ 4* 


* 


♦ ♦*♦* 



EFFECT CUOfc 
DIVIDE ? 



VN0385 

*YES **** 
• * * 
*X 61 ♦ 
* 4* 

**** 



VN0280 

*************** 
*** * * 

* * *i>tT RSLT FLD * 
♦C5 ..X*QF OPND-l REG* 

* * * TBL ENT ♦ 
*** * TOICONT) * 

*************** 



*************** 

* * 
♦FIXED/FLOAT L* 
♦SGL/08L PkEC ♦. 

* AS REQ«0 ♦ 

* ♦ 
*************** 



*************** 

* if 4c 

* CLEAR SASfc ♦ * 
*VALUE l^4 RFC, *...X 

* ENTRY ♦ ♦ 

* * * 
*************** 



VN0020 

*** 

* * 
.X Bl* 

* * 
*** 





* 


* 






VN0260 




* 


* 








♦ 






♦ YfcS 


•♦♦* 










♦ 


* ♦ 


fc=FtCT 


CODE 


« 




♦ X CI * 




PURGE ? 




* 


♦ 4* 


« 






* 




**♦* 



EFFECT CODE 

INVERTS SIGNS 

OF SYNONYMS 



.X Al * 

♦ 5* 

♦*** 
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PL/I SYSTEMS MANUAL 
IVINSA 



MPY EFi-£CT 



OlVIOt EI-FECT 



RR EFFECT 
PURGES ALL 

SYNONYMS 





NUi^O 








4i*$^*^**^**$i*4^** 


»** 


*$VKi>YN 




« 


* * 
»A1 . 








.A* KEMVh 


SYNS 


♦ 


♦ » 


♦ FKM tVN 


Ktb 


* 



««*;»« ^K^^c****** 



VN0385 

*** ♦SVRSYN ♦ 

» ^ t ♦ 

*Bl ..X*REHV SYN FROM* 
» ♦ ♦ fcVEN REG * 
*** * * 



*START AT FRST* 
. .X*COMP REG TBL * 

* ENTRY * 

♦ ♦ 
i^^nf^^fi^if ******** 



* * 


VN0280 


* 


* 




♦YES ♦♦** 




♦ ♦ * 


Khb-lYHt 


*X C5 * 


FLOAl INo 


i * ♦ 3* 




* **** 



RfcG-TYPE = 
FLOATING ? 



VN028(J 

♦YES ♦♦♦♦ 
♦ ♦ ♦ 
♦ X C5 ♦ 
♦ 3* 
**** 



^fi,t,*Hi*;^^i^^:^Lif**** 

♦$VRSYN ♦ 



♦SEE FOLLOWING^ 

♦ NQTE * 



*^**:$i****ti***^L* 



Rfc^^-lYPt = 
MXtl) 



REG-IYPE 
FIXED 



REMOVE SYN 

FROM REG 
TAtJLE ENTRY 



^#lif^^4^4f,flii4^4:**** 

♦ * 

♦ Kcbtl ♦ 

♦ SYMdOLIC Ui.E,^ 

♦ IF ANY, UF ♦ 

♦ out) KtO ♦ 



4i ^« «:»:« 4:4c 4:4c :^4: 4= »« 

* * 

* CHANGE ♦ 

* SYMBOLIC ♦ 

* ASSIGNT TO * 

* OUU RtG * 

4c4:4:4'«4'*4:4i^*4'4'*« 



4t4:4:4t#«4:4c4t«;«t4:4c«4< 
» ♦ 

♦STEP TO NEXT * 

♦ COMP REG ♦ 

♦ ENTRY * 

♦ * 
*tf**********t^** 



««i««4'*««=4' *«*♦♦« 


VN0389 


^f^t'*********** 


♦ * 


*** 


* 


* * 

* oC.xtKAlt. ♦. 

♦SLuA Kfco l,^^* 

* * 


* * 
..X tii* 

*** 


♦ RfcSEI 

♦ i>YMbOLlC USE 

♦ OF EVEN REG 

* 



4c4t4c4'4'4'4'4>*« 



i^4e4'««***4'4'«***« 



1i:t.tHif ********** 

* * 

* TRNSFK * 
♦LAST-USE CNT ♦ 

♦ FKM EVEN TU ♦ 

♦ UDU KEG ♦ 
i^^^im*********** 



^^t:7l^**i)^:tf******* 

♦ * 

♦ CLH fiSE ♦ 

♦ VALUES OF ♦. 

♦ VOLATILE ♦ 

♦ AUCUN KEGS * 

^*^,^*4:********* 



♦MARK bOTH REG^ 
X^ USAGES AS ♦ 

♦ SINGLE ♦ 

* * 

«4c4<*4c**«««**4i4=« 



4c4'«^4'4i4'4i*«4'*«4'« 

♦ * 

♦ CLEAR ♦ 

♦ CONTENTS UF ♦ 

♦ bUTH REGb ♦ 

♦ » 
m*-** *********** 



♦ REMUVE SYN ♦.,.X til * 
♦FROM GOD REG ♦ ♦ 3+ 

* * *♦** 

4c * 4: « * « 41 4c 41 41 41 «.* :«i * 
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PL/ I SYSTEMS MANUAL 
IVINSA 



RK CHANbt 
i>lGN EFFECT 



:^*«***4i**4i««*«« 



.X* TEST UPNO-l ♦ 
♦REG CONTENTS ♦ 



4i#* ««»«««»««*»* 



♦Cl»..X* GET SYNONYM ♦ 
♦ * ♦ ENTRY » 



*#««4t««)ti*«:4i4<*4i4: 



iUENIIFlfcK 
♦ ATTRIburfc ? ♦ 



«»«4i4i4(4t**4t**4i** 



,X* CHANGE REG ♦. 
♦SiGN IN OICT ♦ 



*«4c4t«***4i4i***** 



IDENTIFIER ♦. 
* ATTRIBUTE 7 ♦ 



* * 

* CHANGE REG ♦ 
X* SIGN IN ♦. 

* DICTIONARY ♦ 

* ♦ 



• ««»4t««««««»4i** 



♦SIGN IN TRIADS 
♦ ♦ 



CONSTANT ? 



♦A4*X DOb:> KEG HAVE ♦X Cl^ 

♦ ♦ ♦ SYNONYMS ? ♦ ♦ ♦ 

♦ ♦ ♦ ♦ ♦♦♦ 

♦ * 

♦ ♦ ♦♦♦* 



.X^ C5 ♦ 
♦ 3^ 
♦♦♦♦ 
VN028U 



♦ REMOVE ♦ 
♦CONSTANT NOOE^ 

♦ FROM SVNON ♦ 

♦ LIST ♦ 



««*4*****«**4c4i* 



♦C5^..X+ LOCATE NEXT ♦ 
♦ * ♦ SYNONYM ♦ 



«4t*4'*^4i ******** 



♦ ♦NO 

♦ 
END OF LIST ? 



♦♦*♦ 

♦ ♦ 
.X^ C5 ♦ 

♦ 3* 
♦♦♦♦ 
VN0280 
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PL/ I SYSTEMS MANUAL 
$VINSA 



KX INSTKS 



♦ Bl 



IS OPNO I A 

SYMBOLIC 
AUCON REG ? 



IS INSTRUCT 
■LOAO* ? 



♦ *YES 

IS THERE AN » 
AOCON REG IN ♦ 
TBL THAT CONT ♦ 
♦OPNO 2 VAL?* 



, .X* BRANCH ON * 
* EFFECT CODE * 



4e*4i*4>4i**4t«4'4'*4<4' 



EFFFCT CODE 

'LOAD PiJS, 

LOAD NEG, 

♦ DESTROY ? 



*YES ♦♦** 





VN0020 


* ♦ 


VN0120 






» ♦ 




* ♦ 


**** 


♦ 


♦YES ♦♦♦♦ 


♦ ASSIGN THE ♦ 


♦ * 


# 


♦ ♦ ♦ 


X^AOCON REG AS ♦.. 


.X BI * 


* EFFECT CHDE 


♦ X Al ♦ 


♦ THE OPNO I » 


♦ 3* 


* MULTIPLY ? 


♦ ♦ 4^ 


♦ SYMB REG ♦ 


»*♦« 


* 


♦ ♦♦** 


t*^^*i4Ht*^^****** 




* * 





VN0315 

♦VN0570 AI^ 
♦ 28 * 

♦ PROCESS OPNO* 

♦ 1 ♦ 

♦ ♦ 



VN0320 

♦♦♦ ♦VN0640 Al^ 

« * t 29 4c 

♦8b ..X^ PROCESS OPNU^ 



* * 




VN03B5 


♦ * 








♦ YES 


♦ ♦♦♦ 




♦ 


♦ * 


FFECT CODF 


= 


*X Bl ♦ 


DIVIDE ? 


* 


♦ ^* 




* 


**** 



*** 



EFFECT CODE 
ST3RE ? 



«»4E#*«4>4t*!«<«4[*4'# 



VN0400 

♦YES ♦♦♦♦ 

* ♦ * 
♦ X BI ♦ 

♦ ♦ 8^ 
* **** 



V 


VN0330 


4c4'***«i*^^*^4t*4<* 




* * 


*** 


♦GEN: OP OPND ♦ 


* m 


♦ I KEG ♦. 


.X 01^ 


♦ UlSPilNDEX, ♦ 


* * 


♦ BASE) ♦ 


*** 


4i«*»«*»4t******4i 







♦ 


♦ 




VN0260 




* 


* 






♦ 






*YES 
* 


**** 


EFFECT 


cnot 


= 


♦X CI * 




PJRGF ? 


* 


♦ 4 + 


♦ 






* 


♦ ♦♦♦ 



VN0020 
♦YFS ♦♦♦* 



EFFFCT CODE = 
NO EFFECT 



.X AI ♦ 

♦ 5* 

♦ ♦♦* 
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Pt/I SYSTEMS H/NUAL 
tVINSA 



♦Al ..X»BRANCH ON REG* 

♦ ♦ * TYPfc ♦ 

♦ *» ♦ * 



**♦ 
*Cl 



EFFECT = LOAD 
NEG ? 



rvPt = AUCON 



.X* 



♦ PUT OPNO -2 » 
♦TOKEN IN BASE* 

* VALUE OF *. 

* OPNO- I REG * 

♦ TBL EN * 



VN0020 


V 




«««$*«4t«>««*4i«#4! 


**** 


« * 


* * 


♦ * 


X Bl » 


* CHANGE OPNO ♦ 


♦ 3» 


♦ -I REG SIGN * 


**** 


* * 



«c«4<*«*«4(4i**«4'*« 



OPNU -I = 
♦ IDENTIFIER ? 



ODES JICT 



*$VKSyN _ ♦ 

♦ KEHVE SYNS * 

♦ FkOM OPNO- I * 

♦ ♦ 
tit* ************ 



OPNO -1 = 
* CONSTANT ? 



* * 

EFFECT = 
UEblROY ? 

* * 
* * 

♦ YES 


♦ NU 

* 

* 
* 


* . • 




♦ USE OPNO -2 ♦ 
. ...X* TOKEN FOR *. 


VN04«0 

**** 

* * 
. .X 87 * 


*»*♦ 

♦ ♦ 
X* L5 * 

* 3* 

**** 
VN0280 


♦ESTABLISHING ♦ 
♦ SYNONYM ♦ 


* 6* 

**** 









* * VN0280 
♦ * 

♦NO *♦*♦ 

♦ ♦ * 

OPNO -I = ♦X C5 ♦ 

TRIAD ? » ♦ 3* 

* **** 



* OOES TRIAD 
ALREADY HAV" 

* A REG AODK 



VN02B0 

♦YES ♦♦♦♦ 

* ^ 
♦ X C5 * 

♦ 3* 

**** 



«LKtA 

' A RFG 


lY HAVi: 
AODK ? * 


•••••••• 


* 




♦ 




* 




* 






* 


♦ 


*♦♦♦ I 






♦ YES 


♦ ♦ . 
X* C5 ♦ . 

♦ 3* . 












♦ ♦♦♦ 








VN0280 . 






♦ 






* 


* 


VN0280 I 


♦ 




♦ 




♦ 




♦ YES 


**** [ 


DOFS 


CONST ♦ 


♦ ♦ . 


ALREADY HAVE 


♦X C5 ♦ . 


' A REG 


ADDR ? ♦ 


♦ 3* . 


♦ 




♦ 


♦ ♦*♦ 


♦ 




* 






* 


* 
♦ NO 

V 






* 


* 


VN0280 ' 


* 




* 




* 




♦YFS 


**♦♦ , 


IS 


SIGN OF ♦ 


* ♦ . 


REG 


NEGATIVE 


♦ X C'5 « . 






? ♦ 


♦ 3* . 


* 




* 


*♦♦* 


* 




* 






* 


* NO 








V 


VN0280 I 






♦ 




* 


**** \ 


4i 




* 


* * 


♦ PUT 


REG ADOR ♦.. 


.X C5 ♦ . 


♦ IN CONST * 


« 3* . 


* 




* 


**** 


tLm***iii********* 





V VN0280 

*^tt*:^***^iftttt4f 

* * **** 

♦PUT REG ADOR ♦ ♦ ♦ 

♦ AND SIGN IN ♦...X C5 ♦ 

♦ TRIAD ♦ ♦ 3^ 

* * **** 



V VN028n 
^4^************* 

4< * **** 

♦PUT REG AOOR * * * 

♦ AND SIGN IN ♦...X C5 * 

♦ DICT ♦ ♦ 3* 
« « **** 

tUfif************ 






.^ 1-, T — - /T^^^^ n ^ jc 
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PL/I SYSTEMS MANUAL 
SVINSA 



kX STORE 
EFFECT 



VN0400 

* ^ * 
♦Bl * 



*YES ♦♦♦ 
*X A4* 



OPND-2 = 
* IDENTIFIER ? 
♦*♦ * * ♦♦♦ 



OPNU-2 = 
CUNSTANT ? 



« * 

♦RfcT REG ADOR ♦ 

.X* ir ANY IN *. 

♦CONS;CLR REG * 
*ADOR IN CONST* 



** * ♦ 

♦ ♦ *KfcT KtO AUUKt* 
♦A4*..X» IF ANY, IN ♦ 

♦ * ♦ UlCT (CUNT) * 

«» ♦ ♦ 

4c 4:4i4c#4l«4[« «:«>** 4c4i 



♦KEl Ktb AOUR ♦ 

♦ IF ANYJCLR * 
♦KfcC AUUk ANO ♦ 

♦ KEO SG^' IN * 

♦ Jicr * 



4,i9^i^*i*t^f:(f ****** 

* ♦ 

*CLk KfcG AOOK * 

* L 6IGN IN *. 

♦ UICT * 

♦ ♦ 

^*ti:tfi^*t7lf*^fi***** 



♦REMOVE OPNO-2* 

♦ FROM SYN. ♦ 

♦ LIST FUR * 

♦ cIVEN REG * 
************iti^^i 



♦B7 ♦ UPNO -2 = 
* ♦ ♦ TKIAO ? 

*** * 



♦X CI ♦ 

* 7* 

♦ ♦♦* 



**********:ti**** 

♦ * **** 

♦ AOU UPNU-2 Ai>* * * 

♦ SYN IN LiSr *.. ,X Ll 

♦ l-UR OPNU-1 ♦ • 7* 

♦ KEG ♦ **** 

*****7)H,*****:ifi** 



M 
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PL/ 1 SYSTEWS lUNUAL 
iVINSA 



R3tSi INSTKS 



SS INSTRS 



♦Al 



IS MACHINE OP 
AN i>l INSTR ? 



.X Bl ♦ 
» 6* 



♦VN0O40 Al* 
41 29 « 

♦PKOteSS UPND * 
* -2 ♦ 

4t * 



OPNU -I A 
PAKM ? 



* * 

* USE VALUE ♦ 
.X*BEING PASSED * 

* IN PARH « 



* « 

* USE OPNO -1 ♦ 
♦AS IMMEDIATE ♦ 

* VALUE ♦ 

* * 



V VN0020 

* GENERATtiOP ♦ ♦ ♦ 

* DISP IBASE) ♦...X Bl ♦ 

* VALUt ♦ • 3* 



♦ ♦ SWITCH OPND • 
..X* -I AND OPNO ♦ 



4i4>*«*«*««««i»#«i* 



♦VN0562 Bl* 

« 27 ♦ 

*TEST FOR DOPE* 

♦ VECTOR • 

* * 



*VN0640 Al* 

* 29 * 

♦PROCESS OPNO * 

♦ -I * 

* * 



«4>4t**t********* 



♦RESTORE OPNO ♦ 

♦ -2 DATA ♦ 

* * 

«4E4i«r«**i»4t4>*4i*** 



*VN0562 Bl* 

* 27 * 

♦TEST FOR OOPE^ 

♦ VECTOR ♦ 

* ♦ 



«4t«4t4i4c4>*4i*4i4>4<*4c 
♦VN0640 Al^ 
* 29 « 

♦PROCESS OPNO ♦. 

♦ -2 ♦ 

* ♦ 



VN0020 

* » ♦♦♦♦ 

* GENXOP * ♦ ♦ 
.X*OISPL(LENGTH ♦...X Bl ♦ 

* -I, BASED, » * 3^ 
♦DISP2(8ASE 2)* ♦♦♦* 
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PL/ 1 SYSTEMS MANUAL 
SVINSA 



PS6UD0-0PS. 



PSEUOO-OP 
CODE > RRS, 
KRLt RRW ? 



♦ X 01 ♦ 
♦ 14* 



» 




4 


YES 


, ♦♦♦♦ 








♦ 


♦ 


* 




PSEUDO 


-OP 




♦ X 


B6 


CODE = 


RM ? 


* 


* 


14* 


* 




* 




♦ ♦»♦ 



* 8KANCH-UN ♦ 
,,X* PSEUOJ-OP * 

* CODE » 

* * 



* ♦ VN0750 
* * 

♦ »YES *♦*♦ 

PSfcUOO-OH ♦X Al * 
» CODE = LMW ? * » II* 
4. 4= **** 



» ♦ VN1020 

♦YES ♦*♦♦ 

PSEUDO-OP ♦X 81 » 
CODE = LX ? ♦ ♦IS* 



♦ ♦ VN1030 

♦ ^YES *♦♦* 

♦ ♦ 4" ♦ 
PSEUDO-OP »X CI ♦ 

♦ CODE = STX ? * * 15* 

4( 4c *4c4c* 



» * VNIAIO 
♦ * 

* ♦YES ***♦ 

« 4c 4c ♦ 

PSEUDO-OP *X CI * 

* CODE = BOr ? » * 23* 

♦ * *♦♦* 



* * VNIA20 
♦ ♦ 
♦ *YPS ♦♦*♦ 

4c 4c ♦ « 

PSEunn-np ♦x ei * 

* CODE = too ? * ♦ 23* 
4c 4c 4c*** 



FSEUOO-UP 
* CODE = SD& ? 



♦YES ♦♦** 
* * * 
♦ X Al ♦ 

♦ 13* 

♦ *♦♦ 



♦ * VNllOO 

* ♦ 

♦ ♦YES ♦♦♦♦ 

* * ♦ * 
PSEUDO-OP *X Al * 

♦ CODE = DEE ? ♦ ♦ 16+ 

* * **** 



* * VNISO'^ 

* * 

♦ ♦YFS ♦♦♦* 

psruuu-rip * ♦ * 

CODE = FSl R *X Al ♦ 

? ♦ * 21* 

* * *♦** 



♦ * VN0930 

♦ ♦ 

♦ *YfcS ♦*♦* 

* ♦ * 
PSEUDU-OP *X bl * 

CODE = LUG? * » 13* 
4c * **** 



VN1150 


* « VN16B0 


*YFS **** 
♦ ♦ ♦ 


* *Yrs **** 

* ♦ 4< * 


*X Al * 
* * 17* 
♦ **♦* 


* HSLUDJ-f'H *X Al * 
* CUOfc = kSLB ? * ♦ 24* 
♦ « *♦** 



♦ * VN1090 

* * 

♦ ♦YES ♦♦♦* 

* 4c » * 

Pi>£UDU-OP *X LI * 

* CODE = SAVh ? ♦ * iJ» 

* * **** 



♦ ♦ VN132) 

♦ * 

* ♦YES **«♦ 

♦ ♦ * * 
PSEUDU-OP *X Al » 

♦ CODE = FI6 ? ♦ ♦ 19^ 

4c # **** 



-!• * VNIH4;) 

* * 

* *YI-S **** 

* * 4c ♦ 

PSCUOO-flP *X Al * 

♦ avU- = t<H ? * * 26* 
t * **♦* 



♦ ♦ VN1120 

* * 

♦ ♦YfcS ♦*♦♦ 

♦ 4c * * 
PStUDO-OP *X Ul ♦ 

♦ CODE = XFR ? ♦ * ii* 

4c «: **** 



♦ ♦ VM330 

♦ * 

» ♦YES *♦♦* 

* * 4c ♦ 

PSEUDU-OP ♦X Bl * 

♦ CODE = RFIB ? * ♦ 19^ 

4c * **** 



* * VNIHAO 

* <c 

4: *YrS **** 

* « 4= ♦ 

pstar-'f-iH' *x Bl * 

♦ CODF = kS ' ♦ * ?6* 



♦ ♦ VN0950 
♦ * 

♦ *YES ♦♦♦♦ 

PStUUU-UP » ♦ ♦ 
CUDh = KCWi ♦X Al * 

KCL, RCS ? ♦ ♦ 14*= 

4c * **** 



♦ ♦ VM370 

* * 

* *YfcS ♦♦♦♦ 

» * ♦ 4c 

PSEUDJ-OP ♦X Al * 

* CODE = REM ? * * 20* 

* * *«** 



« * VNlb?'' 

♦ * 

* *Yf^S **♦* 

♦ 4= * * 
PSfU;1'i-(!P *X H6 *= 

* CODF = SVk ? ♦ ♦ 26* 

4c 4< ***♦ 



VN0960 
*YtS ♦»♦* 



♦YES **♦♦ 



4. ♦Yf S **♦* 

* <. * « 
PStUPj-'P *K CI * 

* CnjE = Fw( -? J- * 26* 

* * 4c4:<<* 



♦ ♦ VN0^62 

* ♦ 

♦ ♦YES »♦** 

* 4c * » 
PSEUDU-OP *X CI ♦ 

♦ CODE = RKI ? * ♦ 14* 

* 4c ***♦ 



♦ * VN13Q0 
♦ * 
* ♦YES ♦♦*♦ 

-* * ♦ 
PSEUOQ-UP ♦X CI ♦ 
CODE = DOR ? ♦ * 20^ 
4c * **** 



VNIOIO 

***♦ 

* * 

, ,X Aft * 

♦ 76* 
**♦♦ 
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PL/ I SYSTEMS MANUAL 
SVINSA 



.X* 



StT CP CUOE ♦ 
TU *L0» AS ♦ 
MUUlFIfeO OY ♦ 
» UP CDk MOO ♦ 

4c* **«*«*«*»♦♦** 



♦ ♦ 

♦ i>tT RtG TYPE * 
♦TO OP cot MOO* 

♦ L £F»-£CT TO ♦ 

♦ •LOAU» ♦ 



VN0770 

♦NO *♦♦ 
IN •X A«* 



♦ ♦ ♦ MODIFY OP ♦ 
*C1*..X* CODE TO RR ♦ 

♦ ♦ » FORMAT ♦ 
♦* * ♦ 



*VN0570 Al* 

* 28 * 

♦PROCESS OPND ♦ 

♦ -1 ♦ 

♦ ♦ 



IS OPND -2 
REG USED 
SYMBOLICALLY 
♦ ? 



VN0820 

♦YES ♦♦♦ 
♦ ♦ ♦ 
♦ X 06* 
♦ ♦ 
♦ ♦♦ 



FLuAFINb PT ? 



VN0055 


♦ ♦ VN002 




♦ * 


♦YtS ♦♦♦♦ 


♦ ♦YES ♦♦♦♦ 


♦ ♦ ♦ 


♦ IS REG ADJ TO ♦ ♦ ♦ 


? ♦X C4 ♦ 


♦ UPNO -1 REG = ♦X Bl 


♦ ♦ I* 


♦ UPNU -2 REG ? ♦ ♦ 3+ 


♦ ♦♦♦♦ 


* 4= ♦♦♦♦ 



*«:4i4e*4c4c«:«4l«*i^*:» 

♦$VFRFF ♦ 



.X* ATTEMPT TO * 
♦FREE FVEN REG^ 



4<4i4>**^^^^^*«**^ 



VN0830 


VN0759 V 




• ^^^^^^'♦♦♦♦♦♦♦^ 


♦YES ♦♦♦♦ 


♦♦ ♦ ♦ 


♦ ♦ ♦ 


♦ ♦ ♦ ♦ 


♦ X AO ♦ 


♦B4^..X^M00IFY UP COt^ 


♦ ♦ 12^ 


♦ ♦ ♦TO RK FORMAT ♦ 


♦ ♦♦♦♦ 


♦♦ ♦ ♦ 



IS OPNO -1 A 

:>YMBULIC REG 

? 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦ 

♦ USE AUJ RfcG ♦ 

♦ TO UPND -1 *. 

♦ RfcG AS UPNU ♦ 

♦ -2 Rbo ♦ 
4i#4[*:»4i«i«4i4t«4c«4c4' 



♦iVFREE ♦ 



♦ ATTEMPT TO ♦ 
♦FREE ODD REG ♦ 

♦ ♦ 
*#♦♦*««♦♦♦«*♦«♦ 



* ♦ VN08OS 
♦ ♦ 

♦YES ♦♦♦ 

♦ ♦ ♦ 
FRl e ? ♦X C8* 

♦ ♦ ♦ 

♦ ♦♦♦ 



IS OPNU - 
A REG 



VN0790 

♦YES ♦♦♦ 

♦ ♦ ♦ 
IN ♦X €!♦ 

♦ ♦ ♦ 
♦ ♦♦♦ 



VN0820 V VN0759 

♦ ♦VN0570 Al* ♦♦* 

♦ ♦ ♦ ?8 ♦ ♦ ♦ 

.♦06^..X^ PROC OPNU-1 ♦..•X B4^ 

♦ ♦ ♦(DOUBLE REG) ♦ ♦ ♦ 

♦ ♦ ♦ ♦♦♦ 



♦ ♦ 
♦SET FLAG FOR ♦ 

♦ DOUBLE REG ♦ 

♦ ACWUISITIUN ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



VN0770 V 

♦* *VN0570 AI* 

♦ * ♦ — 28 ♦ 

♦A8^..X^PR0CtSS OPNU ♦. 
- ■ -1 ♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦GENERATE: LR ♦ 
♦ODD REGt EVEN* 

♦ REG ♦ 

♦ ♦ 
««*4i«*» ***«««♦« 



♦ ♦ 



1f^t********4f*** 





VNa320 


VN0805 V 


*;t************* 




^4^0*******^**** 


4i * 


♦ ♦♦♦ 


♦♦♦ ♦ MRK PR OF ♦ 


♦CHNGE OPNU -I^ 


♦ * 


♦ ♦ ♦ REGS AS OBL * 


X^REG PNTR ANO ♦. 


.X 6b ♦ 


*C8 ..X* USGE; ♦ 


♦ AOOR TO ADJ ♦ 


* b* 


♦ ♦ ♦SYMBOLICALLY ♦ 


* REG ♦ 


♦ *♦♦ 


♦♦♦ ♦ ASSGO ♦ 









VN0020 

4c 4c 4t^*^ 

♦ CLEAR 4t ♦ ♦ 

♦ CONTENTS OF ♦...X Bl ♦ 
♦BOTH REG TBL ♦ ♦ 3^ 

♦ ENTRIES ♦ ♦*♦♦ 

<:#♦♦♦*♦♦♦♦♦♦♦♦♦ 
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PL/ I SYSTEMS MANUAL 
SVINSA 



IS UPNO -I A 
♦ SYMbOLit REG? 



IS OPNU-2 IN 
A ^^t^J 1 



,S0PN0-^2.N . 

* * 

♦ YES 


♦ ,, 

*** 
* * 


* ♦ 

vNoaao 

♦VN0570 Al* *** 
« 28 * ♦ ♦ 

* PkOC OPNO-l *...X CO* 

* (08L REG» * » * 

* * *** 
*«««*«#*•«***** 



** *VN0640 Al* 

* « • 29 * 

*CO*..X* PROCESS * 
OPND-2 ♦ 



** 



♦o***^********* 



* * 

*GEN: L OPNDl * 

* REG, OPNOZt *. 

* SROA OPNOl * 

* KEiit32 * 
*************** 



VN0340 

**** 
* 
..X 

* 
♦*♦* 



%' 



* ♦ VNObTO 
« * 

* *YES *** 
» IS UPNU-2 KfcG * ♦ * 

IN USt *X B6* 
* iYMBULltALLY * * * 

♦ ? * *** 



IS UPNU-2 Kto 
UK OUO ? 



*$VPREE_ * 

.X*~ATTiMPT T0"~* 

♦FKfct EVN REG * 

* * 



♦ ATTtrtl'T lU ♦ 
♦FREl UUU kto * 



<^]^«*«*««»*«4>»«4> 



♦YES *** 
* * * 
FKtt ? »X 04* 
« * * 

« ««* 



* * *GEN:LW 0PND2 ♦ 
.*C4*..X*KEG-lt 0PN02 * 

* * * «tG * 
»* ♦ ♦ 

4(***«4>* ******** 



*«««**• 4r«4i*«*4>« 



^II^^^I^^KI*^**^** 



.X CB * 
* II* 
**** 



VNObZO 

♦* ♦VN0570 Al* 

« * * 28 ♦ 

.♦b6*..X* PROCSS ♦ 
* ♦ ♦ UPNu-l (JbL * 

** ♦ RtG) * 



** * « ***« 

* * ♦GfcNJLR UPNOl * * ♦ 
*fl7*..X* KEGt GPND2 *...X CI ♦ 

* * ♦ Kfco SKUA ♦ * j«r 
•* ♦UPNOl KEG,3-!' * »*♦* 
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PL/I SYSTEMS MANUAL 

(VINSA 



*A1 



it I UP TO 
•STH' 



.X* 

« 



VN0930 


VN1090 


VN1120 




*♦*♦«****♦***** 


*************** 




♦♦♦ ♦VN0570 Al* 


«** * * 




* * « 28 • 


• ♦ ♦ GET POINTER ♦ 


..X* SET OP TO ♦ 


♦CI ..X* PROCESS ♦ 


•01 ..X* FROM sywenL ♦ 


♦ •LM» ♦ 


* ♦ ♦ OPND-1 ♦ 


♦ • ♦ IMSTK ♦ 




♦** • « 


♦♦♦ ♦ ♦ 


*«*•«****«««*«« 


««*♦*•*««•«**«* 


^*0*mm*:^******* 



♦ » 

♦ SET UbL Rfcu ♦ 

* ACQUlilFION ♦ 
» FLAb ♦ 

• * 



♦VNUiTO Ai* 

» DPND-l ♦ 
* « 



♦VN06^0 Al* 
« 29 « 

* PKOCfciS ♦ 

* UPNl)-^ ♦ 

* * 
♦♦♦♦♦♦♦*»♦*♦»♦♦ 



♦ ♦ 

♦ChN: OP OPNDl* 

♦ Ktb, OFNUl ♦. 
♦KEO-i, (JFN02 ♦ 

♦ * 



♦fVSAVE ♦ 



GEN STORE 
INTO TEMP 



•»*•«««*«««•*«* 



•**•**«*••«*#«* 



V 


VN0025 






* * 


♦ ♦♦* 


♦ UPDATE SYMB ♦ 


* * 


♦INSTR CONTROL*. 


,X A9 ♦ 


♦TO NEW INSTR ♦ 


♦ !♦ 


* ♦ 


4>*** 



***«******♦«*** 



CHANGE CORE 
AODR OF 



..X Bl ♦ 

parameter' ♦ ♦♦♦♦ 



♦OPNO-l INPUT 
^ MET'- 
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PL/ I SYSTEMS MANUAL 
(VINSA 



RCw, RCb» KCL 



♦ otr REG * 
. .X* ASSIGNtD ru ♦ 

♦iVMb CCMP Ktb* 

♦ ♦ 



♦ * 

♦ btT RtbULT * 

♦ TYHt AS ♦ 

♦ CLMPLEX IN ♦ 

♦ tVtN KEG ♦ 

4t4< «««:4e«:4i4< 4[4r«»«« 



»B0 ..X* ASSIGNED TO * 
* ♦ ♦ COMP REG * 

*** * * 



4c«4i4c4i4t4i4t4!«4»^*4'« 
*$VRSYN * 

* REMOVE ♦ 

* SYNONYMS * 

* * 



41 * 

♦ RcMOVE * 

♦ SYMBOLIC ♦ 
♦USAGE FLAG ON* 

♦ 000 REG * 

4t4c**4c««*4>*4c4c4i4'* 



^c^c^c^^c^c^'^c^c^^^c^^^c 

♦ » 

♦ MARK BOTH ♦ 
» Rtu,S Ai> ♦ 

♦ SINi^LE USAbt * 

♦ ♦ 

4c4c4t^4c4c4c4L4c4c4:*«4.« 



RRWtPRSfRRL 



* YES 



« «c 4c4c <L 4i* «:4c 4<« ^E* ♦* 

* ♦ 

* KEStT LONG ♦ 

* PRtL bl\ IN * 

* KEbULT TYPE ♦ 

* ♦ 



4c4t***«4i«****4'** 



4c 4c 4c*» ***««««»«* 

* * 
♦SET LUNG PKtC» 
»blT IN RESULT* 

* TYPE * 

* ♦ 



VN1015 

4c;^4' *♦«*«*♦*♦* ♦^i 
*♦♦ ♦ ♦ 

* * ♦ GET KEG ♦ 
*66 ,.X* ASSIGNED TU ♦ 

* * *SYMB COMP REG* 
*♦* ♦ ♦ 

4c*4c*4<«**4e*4:«4c«4c 



4c4c**4!*4<***4'««<« 



♦ » ♦PUT REG ADOR ♦ 
♦A7*..X^1N TkIAU ANO * 

♦ ♦ * LAif-USc IN * 
*♦ * REO ♦ 

4c4t***4'4>»4>4c4c4<4'*« 



« * 

*PUl kEo SloN ♦ 

* INTL CURE *. 

* SIGN FLO UF ♦ 

* TRIAD ♦ 
4c4>«*«*<t***4'«*«* 



VNOVHO 

» ♦ 

. .X A7* 



♦ SET RESULTS * 

♦ FROM TYPE *. 
♦MASK OF TRIAD* 

♦ * 



* * 

*RMVE SYMBOLIC* 
X* USuE FLGS * 
♦FROM ALL REbS* 
*WHICH (CONTI * 
le^m**^* ********* 



******** i,**4f*** 

* * *** 

* HAVE 8tEN * ♦ * 
*SYMBOLICALLY *...X CB* 

* ASSIGNED ♦ ♦ * 

* * *** 
****^m********** 



♦ GET REG ♦ 
.X^ ASSIGNED TO * 

♦SYMB COMP REG^ 

* ♦ 

4c^«»*«4c****4<4>*» 



***********i**** 
♦SVRSYN ♦ 



*********i****** 



******* **^*****.* 

* * 

* RFMOVE ♦ 

* SYMBOLIC * 
♦USAGE FLAG ON* 

* ODD REG * 
*************** 



*******:******** 



VN0965 

4r4c4c4c4c4c4(4>*<^*««4<4i 

♦ ♦♦ » ♦ 

♦ ♦ ♦ GET RtG ♦ 
♦Oi ..X^ ASSGND TO * 

♦ * ♦SYMB COMP RFG+ 
**♦ 4> * 

*************** 



* <• 

* RESrr LtJNG * 

* PPEL BIT IN * 

* RESULT TYPE * 

* * 
*♦♦♦*****«*♦*** 



* * 


*** 


* * 


♦ ♦ 


* * 


* ATTACH * 


*CLEAR ODD REG*.. 


.X L)6* 


*SYNUNYMS FROM* 


* IbL ENTkY * 


* * 


* EVEN TO UDO * 


* * 


*** 


* REG * 


*************** 




*************** 



*************** 



*************** 



*************** 

* * 
*MK BOTH kfc GS * 

* AS SINGLE *. 
*USAGL AND USE* 

* nUO REG * 
*************** 



******* **^>ifi***ii. 

* * 
*SET LHNG P^f-t* 

* PIT IN KiJSULT* 

* TYPE *■ 

* * 
*************** 



4!«*«**4c ♦****«** 
** ♦ * *** 

* * ♦PtSbT Lu^PI FX* * * 
.♦06*. .X* RESULT FlAG *,..X A7* 

* * *IN OESIILT HEC* * * 
*♦ * * *** 

4c4c4:*«***«={-****>^ 



4cij^4<««4:*«« 



* ♦YES 

HAS GENERATED * 
cot fiVRLAPPED * 
COMPILER * 

* TABLES ? * 



*************** 

EXIT 
*************** 



*************** 

* * 

* P t S T 'x -f T ♦ 

* COMPILATIUN * 

* WITH t-^npir * 

* SPAfF «• 

4c4t*«t«4c********« 



4:**4t4c4c«c**)!t4:**«« 
bXiT 
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Chart 61. Instruction Assembler (Paae 14 of 32) 



PL/ I SrSTfcMS MANUAL 
$VINSA 



»B1 ..X* SET UP CODE * 
* * ♦ TO L ♦ 
♦♦♦ ♦ ♦ 



♦CI ..X* SET OP CODE ♦...X B3* 



*****4t««4>***4i** 



»* ♦VN0640 Al* 

* * ♦ 29^ * 

»Dl*..X* PROC OPNn -2* 



♦ * 



IS OPND-2 IN 
A REG ? 



RIGHT TYPE UF 
REGISTER ? 



♦NO ♦♦♦ 

♦ X B3« 
* ♦ 



tt^4f4Hc*^*^if***^* 



♦B3*..X*S£T 2N0 AODR » 
♦ ♦ ♦ INCK. TO 4 ♦ 



,^t********'ti**** 



4E«4t:^**«««t4t***** 



♦ USE OPND-2 *...X C8 ♦ 
» REG ♦ * 11* 
4i ♦ «♦♦♦ 



4t**4i«4i«4t**4i4c4c4>* 



*4c««4i«4i«4<*«««4>* 



♦ GEN: OP REG * 

* DISP (BASE) * 



4t*«*4i*4i4c**4t4c«*4i 



♦ * 

♦ MARK Phb * 

♦ RESULT AS ♦ 

♦ COMPLFX * 

♦ * 



« 4i« 4t 4c«4[ 4[ «4t:^4E4[ 4E4t 



♦ * 


*** 


♦ 


♦ * 


* * 


* 


X* SET kEG ACQ ♦.. 


.X B8* 


* IS ADTK A 


*FLAG TO FIXED* 


* * 


* PARA^EThP? 



♦ *»#«4i»*4r4E4E4t««4c 



DbL PkfcC ? 



* * *** 

* MOO OP CODE * * * 
.X*FOR SGL. PkEC*...X BR* 

* FLT PT ♦ ♦ * 

* « ♦** 



* * 

* MODIFY OP * 
*CUDE FOR DBL ♦ 

* PRtC FLT PT ♦ 

* ♦ 
*♦♦♦♦♦»♦♦♦♦*♦♦♦ 



««i«*«*4i««***««* 



*:^^:t ;«.«««4c«<c«:<c4:4c 



4ts>-«>{<4t>i:«>(c««^:(s4:4:,^ 



I^«««4[«*4c4c****** 



** *VN0570 Al» *** 

* * * ^8 * * * 

♦88*,. X* PKUCtSS »...X Di* 
- - - UPNU-1 * ♦ ♦ 



*<£««<[<<.««: 4c <c 4: <( 



»* 



♦♦*♦♦♦♦♦♦♦*♦*♦♦ 



* ♦ 

* GFN: t>P Ptr, * 

* *1 ♦. 
♦UISP-\( ^^Sh) * 

* * 



..X Dl *. 

* 6* 

♦ *** 



i'*** 



«4«* 



♦DETAIN INOXD * 
♦OSPLCMNT AND *. 

* COMPUTt PHD * 

♦ INCK * 



Chart 61. Instruction Assembler (Page 15 of 32) 



:^7i 



PL/ I SYSTEMS MANUAL 
$VINSA 



♦Ohr bYMBOLiC ♦ 

,A* LAbEL lABLfc * 

* tNTkY » 

♦ * 



♦ ^VES 

WAS REI- 8ELW » 

LAST ^56 • 
BYTES OF 3R0 * 
P<i OF CODE ?* 



* * 

* tt\ilK UtF ♦ 

* tCUKK LUt * 

* LfK) INTO ♦ 

* TABLE * 

4< 4c 4t 4c « 41 4c *«: :tL«[4(«« « 



♦ *YES 

IS OEF rtlTHiN * 
1ST 3 PGS QF * 

CODE ? ♦ 



*YES »** 
* ♦ » 
A *X 81* 
* ♦ 



4c 4I*««««4:^ «*'('««« 

EXIT 

4c4c4c4:«4'««««4E«4c4t4c 



4i^4< **♦*««* ♦^t*^* 

♦ » 

♦COMPUTE DISP * 
♦AND BASE FOR * 

♦ CUUE COVER ♦ 

♦ AUCUN * 

4c4c4:4c4c«4c*4c«****4c 



4c4>««*4c**4c4'«4<4'^4' 

♦ * 

♦gen: L ADCON ♦ 
♦REG CODE COV ♦ 

♦ IN 1ST OPEN ♦ 

♦ INST OF REE ♦ 
««♦♦♦*♦*«♦♦*♦«« 



4:«««*4c«*4:«4c4<4c«« 

♦ USE DISP ♦ 

♦PORIN OF CURR* 

♦ LOC AS DISP ♦ 

♦ UF tjRNCH ♦ 

♦ INSTR ♦ 
4i** ************ 



***,f**:ti4i4i**^:tf** 

♦ * 

♦ PUT ASSMBLO * 
♦AUOR IN RfcFNu* 

♦ BRNLH * 

♦ ♦ 

****** *:^;:if****^f4 



*****>t^;********* 

* * 

* INSERT A ♦ 
.X^'NOPMNTO 1ST* 

♦OPEN INST IN ♦ 

* REFNG AREA ♦ 
*************** 



****:ti** ******** 

* * 
♦bTEP THE AUUR* 

♦ OF THE REF ♦ 

♦ AREA BY 4 ♦ 

* ♦ 
*************** 



K* SEF ♦ 

♦ FOLLOWING ♦ 

♦ NOTE ♦ 
*************** 



ASSEMBLr 
COVCRtO AUUK 
FOR CURR LOL 



*************** 

* * 

♦ PUT ASSMBLO ♦ 
♦AODK IN RFFNG^ 

♦ INSTR ♦ 

* * 
***^*********** 



IS THtRE 

ANOTHER DEF 

FOR THIS LOC 

♦ ? * 



♦ YE^i **♦ 



*************** 

EXI i 
*************** 
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Chart 61. Instruction Assembler (Page 16 of 32) 



PL/ I SYSrENS MANUAL 
$VINSA 



»•« • * 

♦ * •SET RtG ACQ ♦ 
♦Al ..X* FLbS TO ♦ 

• ♦ »S1N(,L£, FIXED* 
*♦» » • 



* *N0 

13 ARRAY AOOR « 
IN GEN REG 

? • 



• MAKE ARRAY 
.X* REG » Rl} 

♦SUBSCRIPT RE 

• » R2 « 



REG* 



• * 

♦ INHIBIT ♦ 
♦ASSGMT OF GEN* 

* KEG * 

* * 



* * 

• MAKE * 

♦ SUBSCRIPT ♦ 
*REG«Kl; ARRAY * 

♦ REG=R2 * 



IS SUBSCRIPT 
NEGATIVE 7 



««•*•***•**«** 



.X*USE OP cnoE « 
* SR 



**« 

* * 
.X B6* 

* * 



*** 

* * 
•X* 85* 

* * 
*** 



« * 


VN1270 


* * 


♦ ♦ 




4> • 


* *N0 


•♦♦* 


♦ 


IS» SU4JSCKIPT * 


* * 


* 


iUPNO -2) IN 

A KfcG? * 


♦X CO * 
* 18* 


♦ . '^.Iil??6f'r 



* *VfcS 

♦ IS AKKAY * 
AUUKIOPNO 

♦ -DIN A RtG ? 



•♦* 
* 
*X Bl* 



««t*«4i«««4i«««*«i 



GEN: LCR 
RURl 



••*****4>***««« 



li SUBSCRIPT 
IN b£W REG 



*YES *♦** 

~ ♦ ♦ 
*X AO « 
♦ 18* 



*«****««•«****• 



.X*USE UP COD£= * 

♦ AR * 

* * 



♦ ♦ 


VN1230 




V 


VN1260 


* • 






«|r«4>*««***««4i*« 




♦ *NU 


*«•• 


** 


• » 


•♦♦♦ 


* 


* * 


* * 


* * 


♦ 4r 


IS iUBSCklPT 


*X A6 * 


*86*. 


.X* GENI OP Rl, ♦. 


..X 85 * 


NtGATIVt 7 * 


♦ 18* 


* ♦ 


* R2 * 


♦ 18* 


♦ * 


**«* 


** 


* « 


*«•* 


* * 











**«**««***«*«l«» 



*SET SUBSCRIPT*.. .X A4 * 
* REG « R1,R2 * ♦ 18* 
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^7^ 



PL/ I SYSTEMS MANUAL 
iVlNSA 



VNI200 

:^:ti^^^^^^ ********* 

♦♦* ♦*VAS(,C ♦ 



♦AU ..X* GET ♦ 

♦ ♦ »COMPUTATIONAL* 

»♦* ♦ R£G ♦ 

*************** 



*************** 



*******$^******* 



****4^********** 

* * 

♦ Nfcw RfcG-> * 
♦DPNU-1 KEG-> ♦ 

♦ k2 ♦ 

* * 

*^i**:t:********** 



*** 

* * 

*co 

* * 
*** 



IS ARRAY AOOR 
IN A KEG ? 



*************** 
♦JVASGC * 

* GET '* 
♦COMPUTATIONAL* 

* REG ♦ 
*************** 



IS IT GEN k£G 
? 



*♦♦ 

* ♦ 
♦ X C4* 

* 4c 
*** 



li> bUtJiCklPT 
NEGATIVE ? 



♦A4 ..X*UP LduL = LCR* 



**4f1^**********4i 



#**^L*********** 

** * * 

« « ♦ * 

*Ab»..X*&fcN: UP Rl,R2* 

* * * * 

*^ * * 

*************m* 



VN1<:30 

**************^ 

*♦« **VUSAC ♦ 



JtHf:t^**^********** 



ASSEMBLE AUOk 

F(JK ARRAY 
AOOR lUPND-1) 



*******:ti******* 



* X* UP CUDt= LK *...X A5* 



********l[****** 



*************** 



m****:ti:t:* 



VNi^60 

*************** 
*** * « 

♦ * ♦ OtN coot TO * 
*tib ..X*CK IF S.S. I^* 

♦ ♦ *UUTSIOt USERS* 
*♦* * AREA ♦ 

*************** 



*************** 

♦ * 
♦PUT LAST-USE ♦ 

♦ UP TRIAi> IN ♦ 

♦ RfciLT REG ♦ 

♦ <CUNT) ♦ 
*************** 



*************** 



*************** 



♦ ASSM AOOR OF^ 

♦ ARRAY AOOR ♦ 

♦ * 
**0************ 



*************** 



*************** 



*************** 

♦SVDSAC * 

* 4c 

.X*SEe FOLLOWING^ 

♦ NOTE ♦ 

♦ ♦ 
*************** 



*************** 
*$VASGC ♦ 



GET COMPTNL 
RFG 



*************** 



*************** 

♦ * 
♦OPNO-1 REG ->* 

♦ R2t MEW RFG * 
♦-> OPNO-l REG* 

♦ -> Rl * 
*************** 



*************** 



♦ gen; L < H, *...X C4* 



*******iiL*1f***** 



ASSEMBLt 

AOORtSS OF 

SUBSCRIPT 



IS CORE-SIGN 

OF SUBSCRIPT 

NEGATIVE ? 



*************** 



♦OP CODE 

♦ 
*************** 



*** 

* * * 
S«+...X 84^ 

♦ ♦ ♦ 
♦ *♦ 



*************** 



*Aii*,.X*U? CUOt 



*************** 



*** 

* * * 
•A«^...X b^* 

* * * 
*** 



********* ****^* 

♦ * 
♦PUT AUUK RES * 
♦& TRD PTR IN ♦. 

♦ REG TfaL ENT ♦ 

♦ FOR RES REG * 
*************** 
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Chart 61, Instruction Assembler (Page 18 of 32) 



PL/ I SYSTEMS MANUAL 
iVINSA 



»♦♦ ♦♦VASGA ♦ 

« 4t « ♦ 

*A1 ..X*ASSIGN AUCON * 
♦ * ♦ KtGi ♦ 
*** * * 



CUUbt OtOi * 



.X* 



INITIALIZE • 

SEARCH Of ♦. 

♦ LIST OF ♦ 

♦ KEF6HENCES ♦ 



♦AULUNKEb) 
♦ ^U INSTK 



* MVt lNK to ♦ **♦* 
♦HKfcV Kfcf INTO* * ♦ 

♦ l6l INST *...X Bl ♦ 

♦ SPC(MAY Bh • ♦ 3* 

* ZfcRUI ♦ ♦•♦* 



♦ USE CURRENT ♦ 
,X* COE LOC AS ♦ 

♦ OEF OF FWRO ♦ 

♦ BRANCHES * 



♦ ♦NO 
IS CURRNT COE ♦ 

LOC COVRBLE 
BY A PERM REG ♦ 

* ? ♦ 



♦$VDSAC ♦ 

♦ ASSM AOOR ♦ 
♦FOR CUKK LOC ♦ 

♦ ♦ 



♦ GtT ENTKY ♦ 
♦FROM LIST OF ♦ 

♦ REFERENCES ♦ 

♦ ♦ 



VNOO?0. 
♦YbS *♦♦♦ 



END OF LIST ? 



♦X Bl *, 
* 3* 



* ♦ 

♦ COMPTE ADOR ♦ 
,X^IN CODE COVR ♦ 

♦ADCON T8L FOR^ 
♦AOCON (CONT) ♦ 



♦ ♦ 

♦WHICH CnVFRS ♦ 

♦ THE CURrtENT ♦ 

♦ L UC ♦ 
«< ♦ 



♦ * 

♦ USE DISPL (IF * 

♦ CURRENT tnc * 

♦ AS DISPL FCJR * 

♦ BC INST * 



♦ * 

♦ GET FNTHY * 

♦ FKOM I 1ST OF * 

♦ REFERENCES * 

♦ <■ 



4r4'4t4'4c4i4<*4'4'***4<4< 



*SAVh LINK TO ♦ 
* NEXl ENTRY ♦ 



4c « :^ * « >tt « * 4t 4c)4c 4^ 4c <[ 4( 



;^4c4i4i4c#4[4'*«4'**4i4c 

* 4t 
♦PUT 'NUP* IN ♦ 
♦PLACE OF LIST^ 

* LINK ♦ 

* * 



4<4c4><f*4'««*4c««4c** 



♦FILL IN AJOK ♦. 
♦ OF HC INSTR ♦ 



4c4c**«4c*««**^^«« 



* * VN0020. 
* * 

♦ ♦Yt-S ♦*♦♦ 

♦ * * 
FN*- !F LIST ? *X Bl 

* * 3* 

4c « **4!4c 

» * 

* * 

♦ NO 



4c 4c 4c 4c* «4c 4c 4c 4: 4c ^c^** 
4" A 

♦SAVE LINK Til ♦ 

♦ N'FXT I 1ST * 

♦ EMTKY * 

♦ « 
4c4c4c4c4c4:4'4c4c4c4>4<4'4:A 



♦ * 

♦ Gh\:L A }r )\ ♦ 

♦ REG, A KON * 

♦ THL TN PI Cf. * 

♦ OF LIST LINK <■- 
4c 4' 4> «**♦*«♦ 4c 4c 4c 4c 4c 



4c4c<c4c4<»«««: 



4c«c«4c«»4cft«:4<4c4r<'4c4c 



Chart 61 



Instruction Assf^mhl^-r co^rrc^ iq r^-f '^o\ 



MS 



PL/ I SYSTEMS MANUAL 
SVINSA 



VNlJTO 

♦ * * utT AbbLTfc ♦ 

♦Al ..X*Ktu ASib.><D TO* 
» ♦ » OHND -^ ♦ 
♦♦» * SYMbUL REG ♦ 



* ♦ 

♦ AOJbT IT TO ♦ 

* PktCUNb ♦ 

♦ UVtNi KfcG ♦ 
« « 
]tc««*4'**** ****** 



♦Bl ..X*INHIBIT ASGMT* 
* ♦ •OF GEN REG * 



♦CI ..X*TEST TYPE OF ♦ 
* * REG REQO * 
*♦♦ * * 



V 


VNOO<fO 


*«*«i***»*4>*«4>«* 






«♦«« 




♦ ♦ 


* SET OP COOfc *.. 


.X CI ♦ 


♦ TO 'L* ♦ 


* I* 




♦♦♦♦ 



4i«**«4t4t«t»4'**4i** 



V 


VN0b95 


4c«««4e4c4l4c4e«:^«4i«4< 




* btT tXlT OF ♦ 


*♦*♦ 


*VN0i>7u KOOTNfc* 


« * 


♦ TU GU TO *.. 


.X C6 * 


*VNU02UIS£t Po* 


♦ 20* 


» 3) ♦ 


♦ ♦** 







FLOATING ? 



♦ « **« 

♦SET FLAG FOP ♦ ♦ ♦ 

,X^ $VASGC TO *...X C^* 

♦ FIXFO ♦ ♦ * 

♦ ♦ **♦ 



♦ * ♦«* 

♦ SET l-LA', H ^ * ♦ ♦ 
.X* tVASGC TO ♦...X C5* 

♦ FLOATING » ♦ ♦ 

♦ * *♦♦ 



• ♦ 

♦ SET FLG FOk ♦ 
*$VASGC ACKONG* 

♦ TO TYPE MSK ♦ 

* OF TRIaU ♦ 

:^i^m**** ******** 



**:^^*^^*m ******** 

* * 

* J>FT FLG FOR ♦ 
X* OBL REG * 

* ACySTION * 

* * 

:ti^f*3Hitftf ******** 



V VN0020 
^[*^^*7^***»t*:ti^^^* 

♦VNObTO AI* **♦* 

« 2d ♦ ♦ ♦ 

♦ PKOCtSS OPNO+...X Bl ♦ 

* -1 ♦ * 3* 

:t::ti************* 
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Chart 61. Instruction Assembler (Page 20 of 32) 



PL/ I SYSTEMS MANUAL 
SVINSA 



VN150U 

*** * * 

♦ ♦ ♦INHIBIT ASGMT* 
«Al ..X«UF AUCUN RbG • 

♦ ♦ * 13 ♦ 
»♦♦ ♦ ♦ 



♦* 



4i**4i««*«*«*«**« 



{:> TRIAU A 

GOTO, bAL. OR 

ASGMF ? 



* * VN1S40 
* * 

♦yfes ♦♦♦• 

* «> ♦ 

bUTO ? ♦X AO ♦ 

♦ ♦ ZZ* 
* **** 



GET AOOR OF • 

*bI*..X#LBL VARIAbLfc * 

♦ ♦ ♦(LEFT SOE OF ♦ 

♦♦ ♦ STMT) ♦ 



♦SVOSAC ♦ 

♦ GET ♦ 

♦ ASSEMBLED ♦ 

♦ AUOR ♦ 



♦ * 

♦ SAVE ♦ 

♦ ASSEMBLED * 

♦ AOOR ♦ 

♦ ♦ 
^^^♦^^^^♦♦♦♦♦♦^ 



VN1520 

♦♦ ♦VN1640 80^ 

« * * 32 ♦ 

♦Cl^..X^ CONSTRUCT ♦ 
^ CONSTANT ♦ 



♦« 



*««******«4i««4i* 



IS CONST 
COVERABLE ? 



ASGMT ? »X Bl^ 
♦ ♦♦♦ 



IS LABEL 
(RIGHT SIDE 
OF STMT) 

♦ DEFINED ? ♦ 



VN1520 

♦YES ♦♦♦ 
♦ ♦ ♦ 
♦ X Cl^ 
♦ ♦ 
«♦♦ 



♦ ♦ 

♦ RES h BYTES ♦ 

♦ FOR LOAD OF ♦ 

♦ COVER FOR ♦ 

♦ CONST ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
♦VN1630 AO^ 
• 32 ♦ 

♦ GEN LOAD OF ♦ 

♦ COVER ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦$VDSAC ♦ 



.X^ GET COVERED 
♦ ADOR 



*#4i**4r««*4t*4>«c«4t 



♦ ♦ ♦ * 

♦ ♦ ♦ RESERVE *^ ♦ 
♦03*,.X^BYTES 6 CHAINS 

♦ ♦ ♦RESERVED AREA^ 
♦♦ ♦ TO (CONTJ ♦ 



> . ♦ 

♦^ QICT LIST ♦ 
^SAVE» BLOCK NO^ 

♦ IN RESERVE ♦ 

♦ AREA ♦ 



♦VN1675 00^ 

♦ 32 ♦ 

♦TEST FOR L8L ♦ 

♦ VARIABLE ♦ 

* ♦ 



**j|i**«*4i»***4c«4r 



♦SET FLAG FOR ♦...X AO ♦ 

♦ BAL INSTR ♦ ♦ 22^ 

* ♦ ♦♦♦♦ 



POTENTIAL 
VARIABLE ? 



4i*4t*4i ** *4i4i*4'4t4(^ 



m*m********^*** 



♦RES 8 BYTES £♦ 
♦INSRT ASMBLO ♦ 
♦ADDR OF CONST^ 
♦ OR VARIABLE ♦ 



♦$VASGC » 



♦ ASSIGN A ♦ 
♦FLOATING REG ♦ 



;»4c#*4[*4c *«**<[**« 



♦♦♦♦♦•♦♦♦^♦*4i** 

♦SVOSAC ♦ 



♦ COVR POTENTLY.. 

♦ VAHBL AOOR ♦ 



♦♦♦♦*♦♦♦♦♦♦♦♦♦♦ 



« ♦ 

♦ gen: lo r ♦ 

♦ const/vr«l ♦ 

♦ STD * 

♦ R, VARIABLE ♦ 



* * 

* clear AOCON ♦ 

* REG 13 AND *. 

* allow its ♦ 

* asgmt again * 



.X 81 ♦ 
♦ 3* 
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PL/ I SYSTEMS MANUAL 
SVINSA 



U TRIAD 

SUbSCKiPTtU 

LBL VAKbLE ? 



IS IKIAO A 
* LbL VAKbte ? 



»* ♦$VOSAC • 

« * * « 

♦CO«..X* COV THE AOOR* 
♦ OF LBL VAR ♦ 



♦• 



IS LABEL 
DEFINED ? 



♦YES *♦♦ 
* * « 
»X C4* 
« * o 

* «♦♦ 



* ;^« 41**41 ^c***^'*** 



♦ bET ADUK OF ♦ 

• LBL VkbL * 



**««*«»«»**:**«* 



*» ♦*VDSAL * 

* « « ♦ 

♦AJ*..X» LUVtK ADUR ♦ 

♦ ♦ ♦ ♦ 
»* * ♦ 

^c******** ****** 



VN1590 V 

*************** 
♦VN1675 DO* 
* 32 » 

♦ UfcT IF ♦ 

♦ PUTNTL LBL ♦ 

♦ VAK « 
*************** 



*************** 



*************** 

♦ ♦ 
♦RESET BLK NR ♦ 

♦ TO FORCE ♦ 

♦ RESOLUTN TO ♦ 

♦ GOTO INTPTR ♦ 
*************** 



******* ******4i* 



♦USE ASSEMBLED^. 
♦ CONST AOOR ♦ 



*************** 



PUTNTL LBL 
VRBLt ? 



♦YES ♦♦♦ 

♦ ♦ ♦ 
*X CO^ 

♦ * » 
♦ *«* 



VN1!>60 
*************** 
♦VN1600 C0+ ♦♦♦* 
* 31 * * * 

♦ obN. CUNO BR^...X Al ♦ 

♦ ru ♦+10 ♦ ♦ 25* 

♦ * **** 
*************** 



*************** 
♦♦ ♦VNlbOO CO^ 

* ♦ * 31 * 

♦ At»*..X^ bEN CUNu BR ♦. 
Tu ♦♦14 ♦ 



»« 



*************** 



♦ *♦ 

* * 
X B7^ 

* * 
*♦* 



*************** 



♦ USE ZtRO AS * 
♦AODK OF CONST^ 



*************** 



*************** 
» » 

♦USE CURK BLK * 
♦NO. (ZEKU, IF^ 

♦ IN UN-UNIT) ♦ 

♦ ♦ 
*************** 



**«*«****«*«*** 
♦$VOSAC ♦ 



***««***«**««** 



*************** 
♦VNI640 ttO^ 
* 32 * 

♦ CUNiTRUCT ♦ 

♦ CONSTANT ♦ 

♦ * 
*************** 



♦ *♦ 

*. * 
*X A6» 



IS CONST 
CnVtRABLfc ? 



«YES 



V VNOC? 
***********<-*** 

* * **** 
♦GfcN: fiC CiJNnt+ ♦ ♦ 

♦ LAHFL OK b/^L ♦...X Bl 

♦ 14, LABU ♦ * 3* 

* * ***# 
*************** 



********* 



*******#** 



V 


VN1570 


*************** 




♦ ♦ 


**** 


♦u£N:LR 15.6 A^ 


♦ « 


♦ IbtLBLVRbL ♦. 


..X A6 ♦ 


♦ BALR 14,15 ♦ 


♦ 2i* 


* * 


**** 



*************** 



*************** 
** * * 

♦ ♦ ♦RfcS 14 BYTES ♦ 
♦87^..X^ANU LINK AKtA+ 

♦ ♦ ♦TO UICT CHAINS 
*♦ ♦ * 

*******4<*****«* 



*************** 

♦ INSEKT ♦ 

♦ KtSbkVtO ♦ 

♦ BLOCK NK, * 
♦CONSTANT AUUk+ 

♦ ICONT) * 
*************** 



v;Mif>70 
*************** 

♦ANU GOTU FLAG^ ♦♦♦« 
♦INTO KESERVO * * * 

♦ AREA. SAVE ♦.,.X A6 ♦ 

♦ CURRNT BLCK * * 2i* 

♦ NO ♦ *♦♦* 
*************** 



*************** 

♦VN1600 CO^ 
* 31 * 

♦ GEN CONO BR ♦ 

♦ TO ♦+14 ♦ 

♦ ♦ 

*************** 



*************** 

♦ * 

♦ K[ StHVb 4 ♦ 

♦ BYTES FOR * 

♦ LLjAUNG CUVEk ♦ 

♦ ♦ 
*************** 



VN1560 
*************** 
♦VN1630 AO^ ♦♦♦♦ 
♦ 32 * ♦ ♦ 

* l»EN LOAD OF *...X Al * 

* COVER * ♦ 23^ 

* * **** 
*************** 
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PL/ I SYSTEMS 
ftVlNSA 



23 



.X* kESERVfc 10 ♦ 
♦BYTES Of CODE* 



m*****m**0***** 



VN0020 VNUIO 

**♦ * * «**• *** 4>VNi440 AO* 

♦ ♦ ♦ REDUCE TEMP ♦ ♦ ♦ ♦ ♦ « 31 * 

*B1 ..X* STR6E LEVEL ♦...X Bl * ♦CI ..X* CHECKPOINT ♦ 

♦ » ♦ COUNT BY I » * 3* ♦ ♦ ♦ ACTIVE REGS ♦ 
♦•• ♦ • «♦*♦ ♦♦♦ * * 



* * 

* oEN: L 13, ♦ 

* CONST i. 15, ♦ 

* 0, BALK 14, ♦ 

* 15 * 



* ••«#*« «*«4i«4i«* 




* INCREASE * 


«#*♦ 


♦ LEVEL COUNT * 


« * 


♦ FOR TEMP ♦.. 


,.X Bl * 


* STRGE ASGMT ♦ 


♦ 3* 


♦ BY I ♦ 


**** 


4i*4t***«4t««**««4t 





♦SNLSIB * 

* SEE NOTE I ♦ 



*«««*«i«*4i**«*«* 



NOTE 1, GfcT 

AUOK Uf- AUCUN 

FOR GOTO 

INTERPRETER 



♦iVUSAC * 

♦ COVER AOCON * 

♦ FOR GOTO IN ♦ 

» ♦ 



* * 
♦INSERT ASMBLO* 
♦AUOR OF ADCON« 

* INTO LOAO * 

* INSTR * 



♦ CLR ADCON * 
.X*REGS 13, 14, 15* 

♦ ANU ALLOM * 

♦ (CONT) « 
«♦♦•♦*♦•♦♦♦*♦«♦ 



*«**4t««4t»4i«**«* 



♦ASSIGNMENT OF*.. 
♦REG 13 AGAIN ♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



.X Bl ♦ 
♦ 3^ 



Chart 61. Instruction Assembler (Page 23 of 32) 



379 



PL/ I SYSTEMS MANUAL 

tVINSA 



* LuL ulcl * 

"^ KtbuLUIN * 
^ CHAIN » 



;t v» « it> Ht *« #4e <<i(i! ^^c* 



*Ul«..X* TLbr f-UH <■ 
« * *A;iGMf Uk UUTU* 



4i « « «c « :(( « * « 4c :«: i|[ « >;( «[ 



V"Jlf*03 


* VNu,it)U 


)» 


* 


** » * 


*YhS **** 


» <• it 


» * ♦ 


*m * tiMlJ 


li^ tl5l ? *x LI * 


« * V 


* * 4,* 


*♦* V 


« ♦*** 



730 * ♦ VN1790 

* *N0 *♦♦* 

IS RESERVE IN * * ♦ 
SAME BLOCK AS *X BO * 
LArtf-L ? * ♦ 25* 



lie ->{: <■ 4 <t 4^ :(i « <i 41 4l « « «: « 



« LULAlb ♦...X «l* 

»KLiLKVtU AKfcA* ♦ * 

* * »♦» 



HAb CuNSl 
AUDk bttN 
ASWr.LU ? 



««<> 



* *Yes 

IS KEStRVfc IN ♦ • » 

SAME BLOCK AS ♦X B5* 

CURRENT ? ♦ ♦ ♦ 

* ♦ ♦** 



* ♦ 
,X* B8* 



** *Vl\ii640 cjO* 

« « « ^2 -* 

♦ H*i*..X* cCN^Tk'JCT * 
CUWiTANT * 



** 



!(: « 4L # 1^ 4t « ^ >)C « 4( 4i i(r :«( 4e 



lb IT 

CUVLKAf^Lt ? 



♦VN1630 AO* *** 

« 32 ♦ ♦ ♦ 

.X*GENLKATt LOAD*...X B9* 

♦ (»F COVER ♦ * * 

♦ ♦ *♦* 



IS LArtCL 
CnVfRABLr ? 



*$VOSAC * 



4c*««4t<<4t*««««*)tE« 



4E««4t««4e#4c4!4c<r4:«1( 

* ♦ 

* GEN:*^ * 
*LABEL(l3R BAL * 

* l-fttLABEL) * 

* ♦ 



4E«>(c*4c4t4(*4c4c4c«4i*4c 

* 4c 

* FILL UN'JSI^n * 

* SPACE K^ITH *. 

* 'NilP' * 

* ♦ 
«**^4'«4'4>4'«4'««4<« 



♦ 4t* 
« 4: 

X C9* 
♦ 4< 

4t*4t 



>lf4iif^*7iL^:^4i 



* 

* MbVt ♦'JUt" 
A* InFu UMUbf-') 

* SPAut 



*#**#*■!=* A* <- 



4r«:««4,4;4c<:*4i 



.X*„H NfcXT LINK* 



.X A24t 



* CCjMpUTf^ * 

*covPi\i'; Ar.coN* 

* ON PASIS OF * 
*Pt,E t UISP OF* 

* LBl * 
«««#«ft4'4(«««<'«4E« 



4c*«4c4<4i4:«4-.«>gc««4c4r 



♦ GL\:i n, 

♦ Aornw -. 

♦ LAriFl (L.»- 

♦ I '- , L a • 

4c««*«4:««>!- 



AI 
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PL /I SYSTENS MANUAL 
$VINSA 



*■ * 
♦ * 



IS CONST AUOR 
ASMBLO ? « 



♦ YES 



♦♦ ♦VN1640 BO* 
^ « « 32 « 

.*CO*,.X* CONSTRUCT ♦ 
- - - CONSTANT ♦ 



♦« 



« ^^^i*** 4i4>4t««4t4i4i 



♦» ♦ ♦YES 

♦ ♦ ♦ DOES RESVE ♦ 
*Al*K BLK NK EuUAL * 

♦ ♦ * tUKR BLK NR? ♦ 



IS LABEL 
DEFINED ? 



♦YES ♦♦* 
♦ X Al* 



IS IT 

COVERABLE ? 



♦VN1630 AO* ♦*♦ 

* 32 « * * 

.X* GEN LOAD OF »...X B<^* 
* COVFR * ♦ ♦ 



*««:*««i4i»4E«««««* 



FILL FIRST 
INSTR.MITH 



^^nf************ 



4t***4i*«««***«:4>« 



«4i4i«*4i«*«**««** 



♦ ♦ 

♦ GENJ LA ♦ 
.X* 13,C0NST L * 

♦ 15,0 BALR ♦ 

♦ 14,15 ♦ 



♦$NLSIB * 



4:4i4<4>^«*«4"«<4c4<4>4c« 



♦$VOSAC ♦ 



4t4i«*4t4>*«4'**««4'4< 



* * 
♦INSERT ASM3LD* 

* AOOR INTO * 

♦ LOAD INSTk * 

♦ * 



«*««:*4i««4'«««4c4<4^ 



♦$VDSAC * 



♦ ASSEMBLE ♦. 

♦ COVERO * 

♦ ADDRESS * 



♦GET NEXT LINK+... 



4c«4i«*««*4i«**«*« 



X A2 » 
♦ 24* 



NOTfci GET 

AOOR OF AOCON 

IF GO TO 

INTERPRtTER 
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PL/ I SYSTEMS MANUAL 
SVINSA 



fWC 



♦ KtHUVfc B ♦ 
.X» TABLE Al kiiO ♦ 

♦ Ul- BLOCK ♦ 



* ♦ 

»bbT CUKK BLK ♦ 

* INf-U TABLE ♦ 
» ENTRY ♦ 
« * 



♦ GET 8LK TBL * 
.X* ENTRY PNTR ♦. 

* FROM PAR AM * 

• AREA * 



IS LISTING 
ENABLED ? 



♦D1*X END OF L3CP ? 



* * 
♦ X C7* 

* * 



« ♦ 

♦ BRANCH ON ♦ 
♦PRINT 5 WORDS* 

♦ OR I * 

♦ * 



♦PUT bLK NK AS* 

.X^BASE COOfc OF ♦ 

♦PtKM USA REG ♦ 

♦ TbL tNlKV ♦ 



EXIT 



EXIT 



« * ♦*•♦ 

♦SFT rrijNT in * ♦ ♦ 

.X*l ANf> REi)UCf: *...X C7* 

♦ LOC CTR PTK * ♦ ♦ 

♦ hY 4 * »♦♦ 



FIVE WORDS 



•ALLOCATE TRIAD ♦...X B8 * 

♦ * ♦ 14* 

♦ ♦ ♦♦•• 



♦ GEN STORES ♦ 
.X^INTO lEMP FOR* 

♦FXO RfcoS L * 

♦ I (CONT) * 



♦ ♦ 
♦FLTNG RtG t* 

♦ 2, IF ♦.. 
*CONT£NTS ARE * 
♦STILL ACTIVE * 

♦ ♦4e«**4e«*»**»*« 



.X CI * *C7^, 



4c «***4<» «**♦**«« 

* ♦ 

♦SET COUNT TO ♦ 

* 5 e. REDUCE * 

* LUC CTh PTK ♦ 

* BY 20 * 
4c *«««♦* *«*♦♦♦♦♦ 



mf** *********** 

* * 
♦EDIT CUNTS OF* 

* 1ST 2 WOS ♦ 

* INTO A SYMB ♦ 
*ChAR STk uPND* 

*****:^******.*** 



****:t.********** 

♦ ♦ 

♦CUNY 4 BYTES ♦ 

.X^TO HEX €. EDIT^ 

♦TOGETH U LOC ♦ 

♦ CTR PTR ♦ 
*************** 



*************** 



*************** 

♦ * 

♦ CLR PRINT * 

♦ BUFFER AND ♦. 
♦STEP TO NEXT ♦ 

♦ 4 BYTES ♦ 
*************** 
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PL/ I SYSTEMS MANUAL 
SViNSA 



TEST FOR DOPE 
VECTUK 



OPND 2 FOR RR 



VN0562 
♦Bl X* ENIER 



VN0635 
*C1 X* ENTER 



4i4t«»4c4c4<4c4c«4i#»«4( 



IS OPNU A 
CONSTANT ? 



IS OPNO 

ALKtAOY A 

bUBSLklPF ? 



♦ifcT DUPE VtC * 

♦ FLG TU BASE ♦ 
♦CbUb OF OPNU ♦ 

♦ (CUNT) * 



♦ * 
♦SET SUBSCRIPT* 
♦FLAG UN UPNO ♦ 

♦ COKt'ADDR * 

♦ ♦ 



♦SET FLAG FOR ♦ 
♦ OPNO -2 ♦ 



t*!^'^**^ ♦♦♦♦♦♦«♦ 



UPNO -2 = 

SYMBOLIC COMP 

REG ? 



VN05*?0 
♦YtS **♦♦ 



♦ X 02 * 
♦ 28^ 
*♦♦♦ 



^^^^♦♦♦♦***^*4c« 

EXIT 



♦ ♦ VN0580 
* ♦ 
♦ ♦YES ♦*** 

OPND -2 = ♦ * * 
SYMHULIC ♦X «2 * 
ADCUN kbG ? ♦ * 28* 
« ♦ ♦♦♦♦ 



* * VN0'=;72 

* * 
* *YES ♦*♦* 

OPNO -2 = * * * 

ABSiJLUTt KtG ♦X A7 * 

? ♦ ♦ ?8* 

4c « ««:«« 



* ♦ VNbH5 

* * 

♦YES ♦**♦ 

♦ * * 
LITERAL ? *X 83 * 

* ♦ 28^ 
♦ *♦♦♦ 



UPND -2 = 
IMAG PART 
AOUR ? 



♦ ♦ 
♦bET kCG ENTRY* 
♦AUJ TO UHND-2* 
*KE& TrtL AOUR ♦ 

♦ ♦ 





VN0636 


V 






♦ ♦♦♦if 




♦♦♦ 


« 




* 


♦ * 


♦ SET 


UPNO -2 


* 


♦ C9 


..X+KEG 


AOOK AND 


* 


♦ * 


♦ TRL PTR 


♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 
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PL/1 SYSTEMS MANUAL 
iVINSA 



PROCESS UPNO 
1 



*A1 X* SlfcT 



4t*«4E4c*****«:4t*«4i 



*i>f[ l-LAt» FOR 
* OPNU -I 



«*#4c*«««*<l'****4( 



If * 
♦ 82 



IS SYMBOLIC 

REG ASSIGNED 

? 



OPNU -i = 

SYMBULIC COMP 

REG ? 



VN0590 
♦YES *** 
*X D2* 



» ♦ 

♦ bET POINTER * 

♦ TO ASSIGNED *. 

♦ REG FROM ♦ 
♦SYMBOLIC TBL ♦ 



VNOi)75 

♦ ** 

* ♦ 
.X A8* 

♦ ♦ 

♦ «♦ 



ASSIGN AN 
AOCON REG 



4c «*#«*« 4c«*4t**«^ 



♦ ♦ 

♦ ENTER ASGNO ♦ 
♦REG IN SYMBOL^ 
♦AOCON REG TBL^ 

♦ (CQNT) ♦ 



VN059Q 


* * 




* 


♦ 




♦ ♦♦ * 


♦NU 


♦ ♦♦ 


♦ ♦ ♦ IS 


SYMBJLIC * 


♦ ♦ 


♦D2 ♦ REG 


ASSIGNFT 


♦ X C5^ 


♦ ♦ * 


? * 


♦ ♦ 


«»* * 


«r 


♦ ♦* 



♦ * 

♦ GET PniNTfk * 

♦ TO ASSFiNJD * 

♦ REG FROM * 
♦SYMBOLIC TPL ♦ 



OPND-l = 

SYMBOLIC 

AOCON REG ? 



VN05B0 

♦YES ♦♦♦ 
♦ ♦ ♦ 
♦ X B2^ 
♦ ♦ 
♦♦♦ 



V 


VN0575 


V 


:ti1li^fii*Ae******** 




*♦*♦♦**** isy: )(-*<-* 


♦ ♦ 


**♦ 


* » 


♦ t FLAG AS ♦ 


# * 


* BRANCH l;,^ ♦ 


♦SYMBOLICALLY ♦. 


..X A8^ 


♦SYMBOLIC AnnK+ 


♦ OSLO ♦ 


♦ ♦ 


♦ nOD OK F-VEN ♦ 


♦ ♦ 


♦ ♦* 


♦ * 



*4c*:«<c «««:««««««♦ 



4c 4c«4c44r« *««:«<«««>!: 



VN3b5 

4c«4'^«^^*«^«*««« 
*** ♦ *■ 

♦ ♦ ♦ PUT LIT VAL ♦ 
.♦B5 ..X^AS REG NO OF ♦ 

♦ ♦ ♦DUMMY TBL ENT^ 
♦♦♦ ♦ (CONT) ♦ 

4c4<*»4'« ♦♦*««♦*«♦ 



4c4i««4>4'4'^^«««:4c4'4' 



♦Cb^..X^ASSIGN A COMP^ 
♦ ♦ ♦ REG ♦ 



4c4c4c«4c«#4c«««4c4c4'* 



VN057«^ 

♦vrs *** 

* 4c ^ 
♦ X Afl* 

* 4t * 
* *4'* 



OPNO -1 = 
AbbOLUTE REG 



♦ X 89^ 
4c « 



.X^ COMPUTE REG ♦ 
♦ TABLE ENTRY ♦ 



4c«#**4c*#**«««** 



ii4f***0i*******i** 



4c4c««4c*4'#4'4'*^*4'4< 

* * 
♦USE DUMMY AS ♦ 

♦ REo TBL * 

♦ POINTER ♦ 

* * 



♦ ENTER ASGND ♦ 
.X^ REG IN SYMB ♦ 

♦ tOMP REG Tbi. ♦ 

♦ (CONT).^ ♦ 
4c4c4c4:4c«4c4>4'4'i«4'«* 



V 


VN057'> 


V 


VN057S 


4t 4c«4c«4c4c 4c4c4c4c4<4' 4:4c 




4!**4c****«*=(-*-:t** 




♦ 4c 


*** 


4c « 


*4'* 


♦ AND FLAG AS ♦ 


* *■ 


» * 


* 4' 


♦SYMBULICALIY ♦. 


..X A8^ 


♦ObF AOJACF^T *. 


..X AR^ 


♦ USED ♦ 


* ♦ 


♦ REGISfhk * 


♦ * 



4c 4c 4^ « 4c 4c 4c 4c #* 41 4: 4c 4c * 



4c4c4c4c4c4c4c4c4::jc4c<' 



VN0575 ♦ 



OPNU -I ? 



«4c4'4'**4c4'4'*A4c««« 

4c <c 

♦ SET OPND -1 ♦ 
.X^REG AUDR AND ♦ 

♦ TBL PTK * 

♦ 4c 
4c4c4c4:4c4:4c4c4c4c4c4c4c4c4c 



.X^ C9 ♦ 
♦ 27^ 
«♦** 
VN0636 



4c * * 

♦69^X^ 
♦ * 4c 



4c4t4'4c4>4c#«4c4c*4c4c«4c 



«4c4c4c4c«4:4c4'4c4c4<4ctc« 
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PL/I SYSTEMS MANUAL 
tVINSA 



^««4t4l!{E*«««E**««« 



VN0640 

♦ * ♦ 

♦Al X* tNTfcK 



4i**««*«*««*«4i4t« 



«t;»4c*««4i4t«««***4[ 



*««4>**«4c4>«4>«4c«* 



VN0660 V 
*** *$VOSAC * 



♦ ♦ ♦ PRECISION ? * 



****««« tt^c****** 



.X*USE 1NCREMFNT*.,.X C2* 

• OF 4 * ♦ * 

* * *** 



* ♦ VN0650 

♦ ♦YES *** 

♦ * ♦ ♦ 
OPNu TYPE = ♦X bO* 

* PARAM, HEAL ? * ♦ ♦ 

* * ♦** 



X* GET ♦ 

♦ ASSEMBLED ♦ 

* ADURESS * 



IS INDEX 

COPNO -3» 

SPECIFIEU ? 



♦ * 
*LOC SYM8 COMP* 
» OR AOCN REG * 
*T8L AS REQ BY* 

* OPNO-3 TYPE * 



V 


V 


* ♦ VN0680 


♦ * 


♦ ♦ 


♦ * 


♦YES ♦♦♦ 


* »N0 


♦ * * 


* ♦ 


UPNO TYPE = ♦X CO* 


♦ IS REG ASSbNO * 


IMAblNAKY ? * ♦ ♦ 


♦ ? * 


* **♦ 


* * 



♦ 


* 




VN069U 


V 




* 


* 






*4i««**«**«4t««4c* 






♦ 


YES 


**** 


* ♦ 




OPNU 


TYPE = 


* 


* * 


♦ GET REG NK * 




SCRATCH 




♦ X AO ♦ 


♦ANU PUT IN XI* 




STORAGE ? 


* 


♦ 30* 


* FLU OF * 






* 




♦♦♦* 


♦ASSM8LE0 AUDk* 




* 


♦ 






*4c*4i*#««**4c««** 




* 


* 












♦ NO 

V 






\ 


X... ••.... ..**..« 






/ 




♦ 


* 




VN0720 


* * 


* 


♦ 






* * 




♦ YES 


*♦♦* 


♦ *YES 






* 


* « 


♦ IS BASE I OPNU * 


OPND 


TYPE = 




♦ X BO ♦ 


* -41 SPECIFIED * 


LABEL ? 


* 


♦ 30^ 


♦ ? * 




* 




«*** 


* 


* 





«4>**«****4(****^ 



SUBSCRIPTED 

OR PARAMETER 

? 



♦ * 

♦ ADD OPNO -? * 
X* ADOR TO *. 

♦ INCREMENT * 

♦ * 



4i4'«*4c«*«*«*»)|<«« 



* * 
♦ADD INCREMENT*.. 

* * 

* ♦ 



**♦ 

* « 
X B2* 

* ♦ 



♦ * 

♦LOC SYM COMP * 

X* OR ADCN REG *. 

*TBL AS REW BY* 

*OPNU -4 TYPE * 



IS Rt-G 
ASSIGNt?)'' 



VN0730 
*Y£S ***♦ 

* * 4r 

♦ X C3 ♦ 

♦ ♦ 30* 
♦ »♦♦* 



* ♦ ♦ 

*87*X* EXIT 

* ♦ * 



♦ * 

♦ r.ET r<rs MH , ♦ 

♦PUT IN R FLr * 

♦ OF ASMti! * 

♦ AODR {CUNT) ♦ 
*4c»*4[»* *♦***«*« 



VN0710 

♦YES ***♦ 
* ♦ * 
*X Ul * 
* 30* 
**** 



♦♦♦*♦♦♦******** 

* * 

* EXfFPT -iHt-N * 

* 1ST nPNi) OF *. 
*SS TYPE JMSTK* 

* * 



* * 
X B7* 

* * 



4im^:f *********** 

EXIT 

♦ ♦♦♦♦4c«4>#*4c«4c«* 
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yNGt>90 

»A0 ♦ 

♦ * 



♦ *YES 

HAS SCRATCH ♦ 
bEtN ASSIGNfcD * 
YET ? ♦ 



*$VGTMP ♦ 



* GfcT IMP ♦ 

* ST0kAbfcl32 * 

* BYTE) ♦ 



♦ ♦ 
♦AbSibN LUC 10* 

♦ iCKATCH ♦ 

♦ STUKAbE * 

♦ ♦ 



PL/ I SYSTEMS MANLAL 
SVINSA 



..X*GET LABEL T8L* 
* ENTRY ♦ 



4>«»««4c««4'*4i4c«** 



HAS LBL UEtN 
DEFINED ? 



♦ ♦ 

♦ SET * 
.X^DfchiMTIUN AS*. 

♦ UPND-2 CORE * 

♦ AOOR * 



VN0710 

♦*♦ *$NCON 



.X Bl * 
♦ 29* 
♦*♦* 



*lHfti**.*1f;^:tf***** 



****^*^*****^1f*1e* 



* * 

* PUT LUC Qh » 

* KtEcRENCiNb * 
♦INSTR IN LBL ♦ 

* TBL * 



♦ *VLS 

IS uUKk uoi * 

LUC BfcLUt* * 

LAST /?56 BYT:> * 
*0»- mU Pb ?* 



4>««4i*4'4>«4<«4ci^«4<« 



♦ * 

♦ SET UPNO -2 * 

♦ COKF-AODP * 

♦ t^RPv CJPE * 
♦AODR CF CONST* 



IMAG. FAKI 
WANThO ? 



«[ * 

♦ADD 4 UK tt T0» 
♦AuUK FOk SHkT* 
*Uk LUNG TYPE * 
* KESPCiVLY * 



*oET AbCUN KEG* 



4itf**#^1li**^**** 



* UtN: L Kbb, * 

* 0(0, ADCJN * 

* AREA Ktl,) * 

* * 



* SUPPLY JPND * 
.X* -2 Ai IMMED * 

* VAL fflU * 

* OUTPUT * 



hXiT 

^^v'i^**** ******** 



V 


VN0650 


«*4r4c*««»*«>«c**«« 




* * 


♦ ♦*♦ 


* SfT OPN'> -? * 


♦ * 


♦RFS AODR FPOV*. 


,.X BO * 


♦CONST IF ANY * 


♦ 29* 


♦ * 


**** 



♦ ♦**♦♦««*•):***«* 



MIT 



V 


VNOobO 


#:^^*4f********** 




* * 


*»♦* 


*StT kESULT as* 


* * 


♦UPNU -2 COKE ♦.. 


.X Bl * 


* AUDk * 


♦ 29* 


* * 


♦♦♦♦ 



4i<c4c**««4!»*«»<c4i* 
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PL/ I SYSTEMS HANUAL 
(VINSA 



VN1440 
*A0 X* kNTER 



* * 

* BholN AT ♦ 

*jTakt of CUMP* 

* KtoS * 
» ♦ 



:ti^nf*^:tit ******** 

* * 

* bJsANCh UN * 

♦ LAST OSfc OF ♦ 

♦Ktbi LUKKtlXT ♦ 

♦ TklAO NO. * 
***#*********** 



VNI#>00 

*** *************** 

* * * 

♦CO X* ENTER 

**« *******4i******* 



* *yES 

IS BRANCH ♦ 
UNCONDITIONAL * 
? ♦ 



15 LLoi> IriAN 



♦ GhIM ilOKt * 

♦ INTU TfcMf * 

♦ * 



*******:tf*ti***** 



****4^^***^:H**** 

* * 

* * 

*brtP TC NtXT ♦ 

* Pto ♦ 

* * 

****^**:^^****** 



**:tH^ii********** 

* ♦ 

♦ COMPUTE * 
♦BRANCH POINT * 

* (♦♦10 OR ♦ 

♦ ♦♦14) ♦ 
^i**nf^********** 



IS ttRANCH 

POINT 

COVtRABLE ? 



.X^CUVER rtKAKCM *. . 
♦ POIi^jT * 



1)i:f*******^ 



**ti^*** ******** 



♦GfcNERATE:ftALR^ 
♦ 13,0 ♦ 



:r ************** 



* * 

* CUf'iPUIfc UI.SP * 

* kbLAflVE TU * 

* bALH ♦ 

* ♦ 

:»: «; <: :«; 4c « :(c 4c 4c # <c :Cc 4= <: « 



* <- 

* .i£N:BC * 
.X*15-UUNDITI0N,* 

* OISPL * 

* * 

iii:ii^*^#*****7ti*** 



j)L*T«i*******V**t'* 

Exir 



♦ * 

♦ CLEAk DA:>Eb ♦ 

♦ OF VULAl iLt *. 

♦ AJCUN ktOi ♦ 



LXII 
4c#4 4:;»4c $41 4C «:«:««#« 
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PL/ I SYSTEMS MANUAL 
$VINSA 



VNi630 
»A0 X* tNTfcR 



VN1640 

•ttO X* ENTER 
« ♦ * 



♦00 X* ENTER 
♦ * ♦ 



« * 

♦SEPARATE AUOR^ 
♦Uh CONST INTO^ 
♦ Pi, AND UlbP ♦ 
« ♦ 



♦ ♦ 
♦LOC CURR BLK ♦ 

♦ INFO TBL ♦ 

♦ ENTRY ♦ 

♦ ♦ 



*************** 

♦ * 

♦LOC NXT DICT * 

♦ ATTRIBUTE * 

♦ NODE * 

♦ * 
*************** 



*************** 

♦ * 
♦CUMPUTE AUCON^ 

♦ AREA AUUK ♦ 

♦ USNt> Pb AS ♦ 

♦ iNUfcX ♦ 
*************** 



*************** 



OEN: L 13, 
AUCON 



****iti ********** 



**^************ 

♦ * 

♦ SUPLY AUJUSll)^ 
♦uSPL w Ktu 13* 

♦ AS ASMBLU ♦ 
♦AUDk Fk OTPT ♦ 
*************** 



4, ^ 41 4c :^ 4- 41:^ 4c « ;([ «:» * 41 

EXIT 
*************** 



DOES IT MTCH 
BLK IN WHICH 

LBL IS 
♦ DECLRED? * 



*************,^* 
♦CNSTKCT 2 WD * 

♦ CNST f-R USL ♦ 

♦ OF GUTO * 
♦INTKPKTR AND * 

♦ ASGHTS ♦ 
*************** 



******^******** 
♦SNCON * 

♦ SEARCH ANl) * 

♦ ALLOCATE CUhii* 

♦ * 
*************** 



*************** 

* * 
♦SET TOKEN ANO^ 
*COkE AODk FOk* 

* CONbT ♦ 

* * 
*************** 



*************** 

* * 
♦iET COND cut ♦ 
♦TO INUICTE IF^ 
♦CONST CAN BE ♦ 

♦ COVERED ♦ 
***i^******** *** 



*******^******* 
EXIT 

*************:^* 



*************** 



.X^GET NXT OUTK ♦..,X &Z* 

♦ BLK ENTRY * ♦ » 

* * *** 
*************** 



IS IT AN 

ATTRIBUTE 

NODE ? 



* *YFS 

* IS IT A * 
TFNTATIVE ♦ 

♦ DECLARATIJN ? ♦ 



IS IT A LAclL 
* VAOfABLE ? 



LAdtL 

VAKlAtLfc 

AKRAY ? 



♦ GET Cnf^t WO' 

♦ ANO PA.JAf 

♦ FLA'; 
* 
i^^^*1f.**t^:^f.i^^f **<^ 



v-XIT 
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32) 



PART 8 - WRAP-UP 

The routines which perform compilation wrap-up are described in this 
subsection. The routines are discussed in alphabetic order according 
to their mnemonics ^ as shown below. Detailed logic diagrams for the 
routines appear at the end of the subsection. 

Adcon Initialization C$HAINI) 
Constant Table Processor C$HCTP) 
Dope Vector List Processor C$HDVTP> 
Line Number Table Processor ($HLNTP} 
Runtime Library Loader C$HRTLL) 
Static Constants-Adcon Loader ($HSCAL) 
Table Collapse C$HTCR) 
Compilation Wrap-Up Driver ($MCWU) 



389 



TITLE: ADCON INITIALIZATION ($HAINI) 

Program Definition 

Purpose and Osage 

The Adcon Initialization routine converts all adcons from their base 
code and displacement form to true addresses and resets the user area- 
relocation constants in the communications area. 

Description 

PSPTR is set to point to the start of the library adcon area^ and all 
adcons in this area are initialized before the swap flag (SWPFLG) is 
set to inhibit swapping* Each adcon in this area is initialized by 
forming the true address in a P-register, incrementing PSLTH to cover 
the adcon, and storing the true address back into the adcon. 

Next the swap flag is set, and the compiler relocation pointers (CSPTR, 
CSLTH, and CSREG) are cleared in the communications area. The remainder 
of the adcons are then initialized in sequence, starting at the front 
of the adcon area. This initializaticai includes initialization of 
the file control blocks and allocation of space for the disk files 
when necessary, and initialization of the adcons covering the generated 
object code, the static and constants area, and the library work spaces. 

PSPTR and PSLTH are then reset to cover the entire adcon area and PSREG 
is set to the execution-time relocatable register configuration 
(registers 6 through 15). 

Errors Detected 

SPACE FOR COMPILED CODE EXCEEDED. (113) 

The adcon area is set up to include a total of 15 adcons to cover the 
generated object code and the static and constants area. During adcon 
initialization, a check is made to insure that the total number of 
adcons needed for this purpose does not exceed 15; if it does, the 
message is printed and compilation terminated. 

Local Variables 

None 

Program Interface 

Entry Points 

$HAINI. No formal parameters. 

Exit Conditions 

Normal exit. Return to caller. Final exit to CALL/360-OS Executive 
if the source program is too large. 

Routines Called 

$GPUT Output Director 

$SVC SVC Director 

Global Variables 

CSPTR Processor Swap Compiler Save Pointer (Communications 

Area) 
CSLTH Processor Swap Compiler Save Length (Communications 
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CSREG 

PSPTR 

PSLTH 

PSREG 

SWPFLG 

L Table 

$LNTA 

$CAA 

$AAA 

$RTLA 

$LWSA 

$IOBA 

$SASA 

$DSAA 

$DBUF 

TMBUF 

$COMAD 

$GABU 

$MFCB 

$MLWS 



{Communications 



(Communications 



Area) 

Processor Swap Compiler Registers 

Area) 

User Program Swap Compiler Save Pointer 

Area) 

User Program Swap Compiler Save Length (Communications 

Area) 

User Program Swap Compiler Save Registers (Communications 

Area) 

Swap Flag (Communications Area) 

Library Load Table 

Displacement from Code to Line Number Table 

Displacement from Code to Constants Area 

Displacement from Code to Adcon Area 

Displacement from Code to Library Area 

from Code to LWS Area 

from Code to I/O Buffer Area 

from Code to Static Array Area 

from code to DSA Area 



Displacement 
Displacement 
Displacement 
Displacement 



Ntraiber of Disk File Buffers 

Pointer to Terminal I/O Buffer 

Address of Communications Area 

Print Buffer 

Mask for FCB Control Bytes 

Displacement from Code to Address-Modifiable LWS 



Logic Diagram 

Chart 62 shows the detailed logic diagram for the Adcon Initialization 
routine. 
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TITLE: CONSTANT TABLE PROCESSOR ($HCTP) 

Program Definition 

Purpose and Dsage 

The Constant Table Processor processes the constant table (C table) 
by moving constants to the static and constants area (adjacent to the 
line number table area) and, when necessary, converting string 
constants. 

Description 

The first and eleventh through seventeenth words of the constants area 
are cleared to zeros, (This area will later be used as the dynamic 
storage area for the external block.) 

FILEPTR in communications area is initialized to the displacement from 
the start of user area to the FCIB offset table. This table is located 
at displacement X'lEO* from the start of the static and constants area. 

The C table is then processed one entry at a time, first checking to 
determine whether the entry contains the constant or a pointer to a 
character-string constant in the source program. If the entry contains 
the constant, it is moved to the location in the constants area 
indicated by a pointer in the constant table entry. If, on the other 
hand, the entry contains a pointer to a character string in the source 
program, this character string is converted (that is, duplicate quotes 
removed) and placed in the constants area. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$HCTP 
Exit Conditions 

Normal exit. Return to caller. 
Routines Called 

$WSTEP Segment Management 

Global Variables 

C Table constant Table 

$CAA Displacement from Code to Constants Area 

$TAREA Translate Area 

Logic Diagram 

Chart 63 shows the detailed logic diagram for the Constant Table 
Processor routine. 
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TITLE: DOPE VECTOR LIST PROCESSOR ($HDVTP) 

Program Definition 

Purpose and Usage 

The Dope Vector List Processor sets the pointers of the dope vectors 
of all static arrays and strings to point to the virtual origins or 
beginnings of the strings ^ respectively. 

Description 

The storage pointer of each dope vector pointed to by an entry in the 
dope vector list is set as follows: 

• If the dope vector is a string, the pointer is set to point (from PI) 
to the start of the string in static storage. 

• If the dope vector is an array/string-array, the pointer is set 
to the virtual origin of the array. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$HDVTP 

Exit Conditions 

Normal exit. Return to caller. 

Routines Called 

None 

Global Variables 

$TSA Address of Dope Vector List 

$SASA Displacement from Code to Static Array Area 

$CAA Displacement from Code to Constants Area 

J List Dope Vector List 

Comments 

The dope vector pointer cannot be set when the dope vector is moved 
to the constants area because static storage has not been allocated 
at that time. 

Logic Diagram 

Chart 6U shows the detailed logic diagram for the Dope Vector List 
Processor routine. 
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TITLES LINE NUMBER TABLE PROCESSOR ($HLNTP) 

Program Definition 

Purpose and Usage 

The Line Nmnber Table Processor processes and moves the line number 
table (D table) adjacent to the generated object code. 

Description 

This program receives the line number table (D table) as input. The 
table is processed one entry at a time by locating the line number 
in the source program ^ converting it to packed decimal^ and combining 
it with the object code offset from the new table entry. The table 
is formed following the generated object code. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$HLNTP 
Exit Conditions 

Normal exit. Return to caller. 
Routines Called 

$WSTEP Segment Management 
Global Variables 

$LNTA Displacement from Code to (Procured) Line Number Table 
D Table Line Number Table 

Comments 

The program assumes integer line numbers equal to or less than seven 
characters in length. 

Logic Diagram 

Chart 65 shows the detailed logic diagram for the Line Nuunber Table 
Processor routine. 
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TITLE: RUNTIME LIBRARY LOADER ($HRTLL) 

Program Definition 

Purpose and Usage 

The Runtime Library Loader determines all library routines that must 
be loaded and then loads the routines and sets (to a base code and 
displacement) the adcons covering entry names invoked. This routine 
also allocates both fixed and address-modifiable library work space. 

Description 

This routine receives as input the library load table (L table) which 
contains, at this time, a pointer to the adcon for each library entry 
name invoked directly by the generated object code. 

Using the library load table as the director, the jump table of each 
library routine containing an invoked entry is processed, setting the 
library load table entries (and, if necessary, assigning adcons) for 
lower-level entry names. This process is repeated at each level in 
the calling structure until the end of the structure has been reached, 
at which time the next seguential nonzero library load table entry 
is processed in the same manner. As entries are set in the library 
load table, a flag is set in the routine entry name processed table 
to prevent subseguent search of a calling structure already processed. 
(For descriptions of the library load table and routine entry name 
processed table, see Appendix B. For description of the jump table 
for a routine, see "Runtime Routine Structure" in Appendix A.) 

Following the library load table search, all additional adcons assigned 
are cleared to zeros and the address-modifiable library work space 
is allocated. A second pass is made over the library load table to 
load the reguired runtime library routines. Before each routine is 
loaded, a check is made (against FREPTR) to determine if there is 
sufficient space available to load the routine without destroying any 
of the compiler's fixed tables area. If there is not^ compilation 
is terminated and control is returned to the CALL/360-OS Executive. 

If sufficient space is available, the routine is moved to the runtime 
library area, those adcons corresponding to entries to the routine 
that are invoked are set (to a base code and displacement) , and the 
routine's jump table is processed. Jump table entries (corresponding 
to library entry names invoked by this routine) of those entry names 
whose associated adcon is not in a fixed place in the adcon area are 
replaced with a pointer to the associated adcon and moved with the 
routine. 

As each routine is loaded, a flag is set in the high-order byte of 
each library load table entry corresponding to an entry to the routine. 
These entries may be ignored when encountered subseguently in processing 
the table. 

After the library has been loaded, FREPTR is set to point to the end 
of the user's area and the fixed library work space is allocated. 

Errors Detected 

None 

Local Variables 

HRCSTK Jump table address push- down stack 
HRGSTK Invoked entry count push-down stack 
HRTLTH Approximate length of the library 
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HRDISP Displacement from code to where each routine is loaded 

HRLTX Load table index name area 

HRDIR Table, each entry of which is the displacement from 
the start of the table to a library routine 

HRDIX Table, each entry of which corresponds to an entry 
to a library routine. The content of each entry, 
when multiplied by four, becomes the displacement 
from the front of the HRDIR to the HRDIR entry for 
the routine which contains the entry • 

Program Interface 

Entry Points 

$HRTLL 

Exit Conditions 

Normal exit. Return to caller. 

Exit to CALL/360-OS Executive to get more space and recompile 
the program. No return. 

Routines Called 

$GPDT Output Director 
$SVC SVC Director 



Global Variables 

L Table 

UTT 

$ACODE 

$LIBBC 

$LTEND 

$MLWS 

FREPTR 

L$LIBX 

$LWSA 
$RTLA 
ZCNT 
ZCNTP 

Logic Diagram 



Library Load Table 

Routine Entry Name Processed Table 

User Terminal Table 

Pointer to Next Available Byte in Object Code Area 

Library Base Code 

Length of the Library Load Table 

Displacement from Code to Address-Modifiable LWS 

Pointer to First Available Word in Compiler's Variable 

Data Area 

Adcon Displacement 

Displacement from Code to Adcon Area 

Displacement from Code to lWs Area 

Displacement from Code to Library Area 

Length of the Fixed Library Work Space (LWS) 

Length of the Address-Modifiable Library Work Space (LWS) 



Chart 66 shows the detailed logic diagram for the Runtime Library Loader 
routine. 
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TITLE: STATIC CONSTANTS-ADCON LOADER ($HSCAL) 

Program Definition 

Purpose and Usage 

The Static Constants-Adcon Loader processes the initialization table 
(I table) and dope vector list (J list) ^ initializing the static and 
constants adcon area. 

Description 

The initialization table is processed one entry at a time^ performing 
those operations dictated by the entry type^ then moving the entry 
to either the static and constants or adcon area, again as dictated 
by the entry type. 

The following is a list of the initialization table entries, a 
description of the processing required before the entry is moved, and 
an indication of the area to which it is moved: 

1. Data/Format Element Descriptor: Moved directly to the location 
in the static and constants area pointed to by the pointer in 
the I table entry. 

2. Adcon: Moved directly to the location in the adcon area pointed 
to by the pointer in the I table entry. 

3. String Dope Vector, Array /String Array Dope Vector: If the 
storage class is STATIC, a dope vector list entry pointing to 
the dope vector is built and then the dope vector is moved to 
the static and constants area. 

4. Special SDV: The string pointer in the dope vector is set to 
point to the static and constants area and then the dope vector 
is moved to this area. 

5. Special Block Adcon Area: A special base code is put in the 
first byte of the BAA (for use by $HAINI) and then the BAA is 
moved to the adcon area. 

6. Discarded Entry: Ignored. 

The J list is processed after the I table and contains only two types 
of entries: ADV/SADV entries too large to fit into the I table and 
discarded entries. The action required for both types is the same 
as described above for their equivalent I table entries. 

Errors Detected 

None 

Local Variables 

HSTBL Branch table to process the various types of entries 
Program Interface 
Entry Points 

$HSCAL 
Exit Conditions 
Normal exit. Return to caller. 
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Routines Called 

$WSTEP Segment: Management 
Global Variables 



I Table 
J List 

$CAA 
$TSA 

Logic Diagram 



Initialization Table 

Dope Vector List 

Displacement from Code to Adcon Area 

Displacement from Code to Constants Area 

Address of First Word Boundary 



Chart 67 shows the detailed logic diagram for the Static Constants- 
Adcon Loader routine. 
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TITLE: TABLE COLLAPSE ($HTCR) 

Program Description 

Purpose and Osage 

The Table Collapse routine collapses the J list, C table, D table, 
and I table to obtain working space during compilation wrap-up • 

Description 

If, at any time during the compilation wrap-up phase prior to the 
loading of the runtime library, there is insufficient free space in 
the variable table area (that is, line number table, static and 
constants, or adcon areas), this routine is called to collapse the 
C table, D table, I table, and J list entries that remain to be 
processed at that time. 

The tables are collapsed into an area bounded by the start of the 
register table area (R$TBL) in lower core and the start of the first 
I table entry in higher core. Each table in turn is moved an entry 
at a time and the linkage adjusted until all have been moved or until 
this area has been filled. In the latter case, an exit is made to 
the CALL/360-OS Executive to get more memory and to recompile the 
program. If the tables are collapsed successfully, a flag ($MCOL) 
is set to prevent a subsequent attempt to collapse them and control 
is returned to the calling program. 

Errors Detected 

None 

Local Variables 

HTHEAD Pointers to the table heads 
HTACTV Pointers to the table active entry 
HTTAIL Pointers to the table tails 

Program Interface 

Entry Points 

$HTCR 

Note: Upon entry, register GO contains the count of the number of 
tables active (remaining to be processed) at the time. 

Exit Conditions 

Return to caller if tables are collapsed successfully. 

Exit to CALL/360-OS Executive if collapse is not successful, or if 
tables have already been collapsed, and recompile the program. No 
return. 

Routines Called 

$SVC SVC Director 

Global Variables 

C Table Constant Table 

D Table Line Number Table 

I Table Initialization Table 

J List Dope Vector List 
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$MCOL 

C$ACTV 

C$HEAD 

C$TAIL 

I$ACTV 

I$HEAD 

I$TAIL 

D$ACTV 

D$HEAD 

D$TAIL 

J$HEAD 

R$TBL 

FREPTR 



Tables Collapsed Flag 

C Table Active-Entry Pointer 

C Table Head-of -Table Pointer 

C Table End-of-Table Pointer 

I Table Active-Entry Pointer 

I Table Head-of -Table Pointer 

I Table End-of-Table Pointer 

D Table Active-Entry Pointer 

D Table Head-of -Table Pointer 

D Table End-of-Table Pointer 

J List Head- of -Table Pointer 

Pointer to Base of Register Table 

Pointer to First Available Word in Compiler's 

Variable Data Area 



Logic Diaqrain 

Chart 68 shows the detailed logic diagram for the Table Collapse 
routine. 
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TITLE: COMPILATIC^ WRAP-UP DRIVER C$MCWU) 

Program Definition 

Purpose and Usage 

Following generation of the object code^ the Compilation Wrap-Up Driver 
is called to perform the housekeeping necessary to prepare the code 
for execution and start execution. 



Description 

This program is the driver for the second phase of the compiler, 
such, its primary functions are: 



As 



1. Call the various routines necessary to process the tables 
generated in phase 1 and initialize the user's area in 
preparation for execution of the generated object program • 

2* Keep track of the utilization of space within the user's area 
and, if necessary, go to the CALL/360-OS Executive to: 

a. Get more memory. 

b. Through the Table Collapse routine ($HTCR) or the Runtime 
Library Loader routine ($HRTLL) , terminate compilation when 
there is insufficient space to continue processing. 

3. Initiate execution of the object program. 

Errors Detected 

None 

Local Variables 

MCPID 



MCINTR 



MCPRGBN 

Procrram Interface 
Entry Points 
$MCWU 



Displacement from the communications area to 
the start of the object code area. 

Instructions moved into ARINTRP of the 
communications area for CALL/360-OS PL/I. When 
a program check occurs, the Executive transfers 
to ARINTRP. The instructions moved in will: 



Save registers 6-15 in the adcon area 

Set the program mask from the second word 
of PSW2SV of the communications area 

Save the second word of PSW2SV in the adcon 
area 

Transfer to IHEERRA 

Code which initializes registers and sets the 

nterrupt mask. This is moved into PRGBN of 
the communications area at the start of 
execution. 
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Exit Conditions 

This routine contains eleven possible exits, all of which are normal 
exits and from which a return is expected except as noted below: 

1. After the call to the CALL/360-OS Executive to initiate execution 
(SVCll) , control is returned to location PRGBN in the 
communications area. 

2. During any of the calls to either the Table Collapse routine 
($HTCR) or the Runtime Library Loader routine ($HRTLL)r control 
may be returned to the CALL/360-OS Executive and compilation 
terminated if there is insufficient space to continue processing 
in the user's area- 



Routines Called 

$HTCR 

$HLNTP 

$HCTP 

$HSCAL 

$HRTLL 

$HDVTP 

$HAINI 

Global Variables 

UTT 

L Table 

$DBUF 



Table Collapse 
Line Number Table Processor 
Constant Table Processor 
Static Constants-Adcon Loader 
Runtime Library Loader 
Dope Vector List Processor 
Adcon Initialization 



User Terminal Table 

Library Load Table 

Number of Disk File Buffers Needed 

(U maximum 93712 bytes each) 



Logic Diagram 

Chart 69 shows the detailed logic diagram for the Compilation Wrap- 
Up Driver routine. 
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PART 8 LOGIC DIAGRAMS 

The detailed logic diagrams for the routines %^ich perform compilation 
wrap-up follow. 

PUI iYST£M5 MANUAL 
«HAINI 



«HAiNI 



* INlTIALIZfc ♦ 

* * 



«i«»*««»«»**»* 



:c<.:..»:"-!SfTSn55' : 



* * 

* INIT AOCON * 
♦FOP COMM ARfcA* 

* OTBL (CONT) • 

*m***t**mmtim0*00 



**m***m*******0 



TO MO PktC* 



m**i<n^v-i'9*9'**mmm 



♦ ENTRY AUCON * 
•AND SLT PSLTH* 



* SfT I A PTK • 

* TO ST 01- AtJV • 

* ARLA L * 

* J*L£N<»TH OF * 

* (CCN«T) * 



4.»«i4i**>ji4t«*«4i4i4i4i 



*{.Li TKUF ADOR* 
A* Ot- APC'J (I) » 
*ANv SIk SACK * 
♦AfTtR (CbNT) ♦ 



«i4i««»»*««4i*«4i** 

•INrT THE TERM* 

• INPUT AND • 

* OUTJ-UT FILE ♦ 
•CONTROL BLKS • 



AKE DISK 

bUFFERS 

NEEOED 7 



HA20 
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PL/ I SYSTEMS MANUAL 
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* ♦ 
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PRINT MESSAGE 
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♦EXEC ♦ 
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^(^(♦♦♦♦♦♦^♦♦♦itt*^ 



END 
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Chart 62. Adcon Initialization (Page 2 of 2) 
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Chart 63. Constant Table Processor 
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PL/I SYSTEMS MANUAL 
SHDVTP 



$HDVTP 



4c « « « « :jc :«c * « 4c 4e4c «4: « 



INITIAL- 
IZATION 



4i:t:****'(f***ili'i"i'** 



*PICK UP $TSA * 

* AND SET PTk * 

* TU STKT OF * 

* DOPE VECTOR * 

* TBL * 

4c««« ««<«>!' 4:««*:(c:tc« 



* * *BRANCH ON NO * 
*CO*..X*OF DIMENSIONS* 

* * * IN O.V. * 
*» « * 

«c4e4c««*4'4c«:**4c*4c4c 



* ♦YES 

IS NO. OF * 

DIMENSIONS IN ♦ 

D.V. = ? ♦ 



* *YES 

IS NO. OF * 

DII^ENSIONS IN * 

O.V. = 1 ? ♦ 



* * 

* PUT ACTUAL * 
.X* ORIGIN HF *. 

* STRINP IN ♦ 

* DOPE VFCTOR * 

«4t*4c4c4c*4c«4t«4c*«)tc 



HDAO 

4c «4t««#4c *♦«***<:* 

* * »*♦ 

* SUM = LOWFP ♦ * * 
X* LIMIT (1) »...X Cc« 

* *MULTIPLIFR * ♦ 

* (1) * *** 
«4c)ec «*»«****«* <<« 



* * ♦ PICK UP * 
*B3*..X* POiMfER TO * 

* * * DOPE VECTOk * 



a TF DIMS IN 

D.V. GREATER 

THAN 1 



4:4c«4: 4c#4c 4c»««:ic4c>)c4c 





¥ * * 


* 


J=l SUM = 


IS POINTER 


*X CO* 


* 


LOWER LIMIT 


? 


* * * 


* 


(I) 


* 


<- *** 


* 





«**«*****«***** 



RETURN 

*************** 



*Su(^ = bJM *MULT=^ 

* (JJ+ LOWER * 

* I IMIT {J+IJ * 

* * 



*<-******* 



J = J + 1 



4c:^V*********** 
* 

SUM = SUM ♦ * 

MULTIPLIER * 

(J) * 

* 

*:<:4:*********** 



HDAO V 
**♦* 4-** ******** 

* SET VIRTL * 

* p.RiatK IN * 

.X* D.V.=ACTL *. 

* ORIGIN OF « 

* ARRAY-SUM « 

**=!-******♦***** 



^ INCRfMT 'Tt 
...X-^Tn NfT ^noc 
^ * VEmP TP' 
* FMTkY 
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Chart 64. Dope Vector List Processor 
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$HLNTP 



« 41 « » « « « 4iiic » 4i4t «4c « 

*HLNTP 



4t 4c 4c « « 41 « « « « 4i« 4<4c « 
« « 

* INITIALIZE * 

* ♦ 

* * 

4i4>»)K4i«*4i4(4i*4»i'>f« 



* GET PTR TO 
♦1ST TBL SEGM 



««#«♦« «4< * 4<4<*«« 4c 
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♦ ♦ 
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««4'4c 4<«4<4c4c4i4(4c 4<<'4c 

♦GNEXT * 

♦' GET NEXT * 

♦ TAbLE ENTRY * 

* * 

4i4i«4'4<4<4'»4> =«'«4'»« 41 



IS THIS END 
Of- TABLE ? 



4c4'4t4c«>4'«»«4<4<*»4>(- 
kETURN 

41 4c4< « 4c 4> 4>4< 4c :^ 4(4' * 4c« 



Chart 65. Line Number Table Processor 
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PL/I SYSTEMS MANUAL 
SHRTLL 



4c:i(4c ♦<(♦ at'*3|' ♦^'♦♦♦^ 
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♦ * 

* INUIALIZt ♦ 



* *N0 

IS LOAD MAP * 
TO Bfc PRINTED 
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* (I) * 
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*»GPUT * 
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* f-UK LD MAP 
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V 


* * 


:ti^i:ti* *********** 
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* * 


lb ENTRY « * * 
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* PUSH-DOWN * 


* * *** 


* STACK * 
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*************** 



4c4c4c4c«4'««««4<#4'«4' 



*SET LOAD TBL * 

* INDEX (I) * 

* * 
««*«*«*«« 4^ 4^ 4c 4C4C4C 



IS LOAD U) 
= ? 



HRIOB 

♦YES *** 

* * * 
*X Bl* 

* * * 
* 4'** 



HR90 

*** 
4< * 

X 02* 
* ♦ 

4<«4c 



4c 4'«4c >!'♦♦*«**♦*♦* 

* * 

* SET ENTRY * 

* PROCESSED * 

* FLAG (M) * 
4t 4c 
4c****4c4c«******* 



****4<**4c****4'«* 
4c * 

* GET AOOR OF * 

* kOUTNE * 

* COlMTNING * 

* ENTRY (I) * 
4c4c4c 4<«4c 4c 4' 4c 4c 4c4c 4c 4c 4< 



4c 4c 4= 4-** 4- 4= 4c 4c 4c 4- 4c«* 
4c 4c 

* HRTLTH= * 

* HRTLTH + * 

* LENGTH OF * 
♦THIS kOUTINt » 
4c 4c 4c 4< 4'^ 4= 4c 4c 4c 4< 4c 4c 4c 4c 



4c4c4c4c4c4c«4c4c4c^^4c4c<c 

♦ 4c 

* REDUCE * 
♦INVOKED ENTRY* 

♦ COUNT BY 1 * 

* ♦ 

4c4c4c4c4c^^4(4c**4c4c4c4c 



♦ ♦YES 

IS INVOKED * 
ENTRY COUNT = ♦ 
? ♦ 



« *Y^S ♦**♦ 

IS THIS LAST * * * 
ENTRY IN LOAD ♦X AC * 
TABLE ? 4c 4. 2^ 

^ 4c 4c^4c4c 



4:4c*4t4c4(4c^«4c*4c^«4> 



* INCREMENT 

* LOAD TABLE 

* INDEX; ( I) 



ifici^f *********** 



*...X A^.* 



* INCkEMT PTR * 
vTO NEXT JUMP * 

* TBL ENTRY ♦ 

* 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 41 4c 4: 4c 4c 4c 



HK80 




HK30 V 
4c4ci{c**j!t4c4c4'4c4c4c4c4c* 


4c 4c 


v4c 


4c « 


* 


* ♦ 


* PUT PTR TO * 


CI* 


*C6^. 


.X* JMP TtL ENT * 


4c 




*AKD CNT NO OF* 


4c* 


4c« 


* (CQNT) * 

*4c«:**4c*4«4c4c4c4c*-/!^ 



* ♦YES 
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4c 4c 4c 4> 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4' 
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4c 4c 4= 4< <> 4c 4: 4c 4c 4c 4C4' 4c 4: 4c 



V HP 30 

4c4c4c4<4<4c4c4c4c4'4c4c4c4c4c 

♦ 4c 4C4C* 
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4c4c*4'***4c4c4c4c4c4:*4: 



4c 4c 4c 4(4c 4c 4c 4c 4c 41 4c 4c 4c 4c 4< 

♦ ♦ 
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♦NAME. PUT PTk^ 

♦ (CUNTJ ♦ 

4e4c4c4c^^4c4c4c4'4c4c4c4c4c 



4: 4c 4c "»: 4c 4c 4c V 4c 4c 4c 4c 4c 4: « 
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♦ INVOKED * 
« tNTRIFS IN - 

* PUSH DOWN * 
^ STACK * 

«4c4c4c4c4c#4c4c4c4c^4c4c4: 



4c*4c4c4c4.**4c*4c4c4-** 
4c 4c 

*USE JMP TABLE* 
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♦LOAD TBL INDX* 
* (I) (CONT) ^ 

**«*4-*4c4c4c4c4c4c4c4'* 



4c*4c*4c4c***4c4c4t4t** 



4c4c**4c4:*«4' 



HRIOA 
5r.4c4c 
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Chart 66. Runtime Library Loader (Page 1 of 2) 
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♦time lib area* 
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* SEE * 
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END 
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HR105 V 
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IS LOAD MAP ♦ 
TO Be PRINTED 

? * 
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* NM TBL * 

:tilt^:lli*:tiif* ******** 



4t************** 

* * 
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♦LOAD TBL ENT * 

* TO INDICATE * 
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***ti*********** 



« * 
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♦ ROUTINE HAS ♦ 

♦ BEEN LOADED * 

♦ * 
*:ff^f* *********** 



******** 



t****** 



* SEE * 

* FOLLUWINb * 

* NOTE * 
««♦«*♦*♦♦****«* 



PRINT LUC L»- 

IST EMTRY PT 

IN HiuijTiNt 
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OF LOAD TBL ? 



*;«:***♦*:(< 4c 4c4:«*** 

* * 

*SET FREPTR TO* 
*PT TO THE FND* 
*UF THE USERS ♦ 

* A«EA * 

*****«4c*4c4E:ac***< 



****««*******]{< V 

* ALLOC * 

* NON-ADDH * 

* MUDF3L Lie * 

* WPK SPACE. =1- 

* SET (CONT) * 

:;«**** :;.«:t*«*«V«-* 



♦ TNCREMFNT * * * 
./♦LOAD TBL INDX*...X PI* 

♦TO NEXT PNTPY* ♦ * 

* V *** 



♦MOVE ROUTINE * 
♦ TO RUNTIME *. 
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* $LwSA TO PI *• 
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* 
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***<^*?,,'c ******** 

kFTURN 
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Chart 66. Runtime Library Loader (Page 2 of 2) 
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PL/ I SYSTEMS MANUAL 
$HSCAL 



$HSCAL 

!ii^i^i;ti4"lf ********* 



^7^^*:tt****iiti****:(f 

* * 

* * 

* INITIALIZE * 

* * 

:ti:(fi^*:ti:ti#:^^Xf***** 



*GFKST * 



* GET PTR TO 

* 1ST TBL ENT 



*#*****♦**«**** 



**<.«**«**♦***** 



.X* fiRANCh MoDE * 
* type: AOCJN * 



;«cjii;tc;(.«:(c<c;«<ijc4c;(> ]((;«: 3tc:(E 



BLOCK AOCON 

AREA FOR 

BEGIN/PROC ? 



* * 
*X C5* 

♦ * 
*** 



IS storage 

CLASS STATIC 
? 



* * 

*PUT SPEC BSE ♦ 

*CDE { lea) IN * 

* HIGH-ORDER * 

* BYTE (CGNT) * 

:lf4f************* 



;ti:ti^:4t*^fit'******** 



PTK TO STORG 
AREA CAN'T BE 

SET UNTIL 
STATIC <CONT) 



*YES *♦** 


* * 


♦ ♦ * 


* * 


16 I-TABLt *X 80 * 


* OF BAA FOR * 


NULL ? * * 2* 


*USt BY $HAINI* 


* **** 


* ♦ 



STORAGE HAS 

BEEN 

ALLOCATED 



^ziiti***** ******* 



* * 

* MOVE 6. A. A. * 
*T0 CONSTANT:> *. 

* AREA * 

* * 



* ♦ 

* PUT PTR Tf> * 
♦D.V. IN DOPE * 

* VECTOR TBL * 

* * 

4c 4t:([ 4: 4t3te« 4c « « 4( ^ « Ji. » 



* * 

* MOVE OOPF * 
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* AREA * 

« 4c 4c :«; « 4c » « « :«c « ^^t :r >!■ 4^ 
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*4c*««****4c4'«*#* 
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4c 4c 4c 4c 4^ :<[ * 4^ ^c 4< # « :(: « 4c 



* MuVE * 
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** * * 

4c ****** ****»*«* 
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I-TbL ? 
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«4c**4..*^-****v*«* 

* * * 4- - 

* MOVE OtO/FED * ♦ 4- 

* TO CONSTS *...X C5* 

* AREA * * V 

* * *»# 

************** 4= 



IS ENTRY DOPE 
VECTOR ? 



4t*<.**********< ^- 

* * 

* Scl STRING * 
X* PTR iN O.V. *. 

* TO PT TO * 

* CONST AREA * 

4c**«t ********** 



OISCRLEO 
I-TBL ENTRY, 

IGNRE AND 

GOTO NXT TBL 

ENTRY 
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Chart 67. Static Constants-Adcon Loader (Page 1 of 2) 
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****««* 
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* * 
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PL/ I SYSTEMS MANUAL 
$HTCR 



*it,Hc:lf:tL:f ********* 

$HTCR 
*************** 



************:ttilf* 



* INITIALIZE * 



ic:tt^^f********^t** 



* * 
* * 

IS HTFPTR 

LFSS THAN 

R$TBL ? 






HT40 


♦YES 

* 

* 
* 


*♦*♦ 

* * 
*X B6 * 

* 2* 
♦**♦ 



:ti7tc************* 



* ♦YES ♦*♦♦ 


* * 


IS $MCOL SET ♦ ♦ * 


* PICK UP PTR * 


NOT EQUAL TO *X 86 ♦ 


* TO NEXT * 


ZERO ? * * 2* 


♦J-LIST ENTRY * 


Xe * **** 


* * 



Tiflf ************* 



IS J-LIST 
NULL ? 



HT50 

«YES ♦♦*♦ 
♦ * * 
♦ X 80 ♦ 
* 2* 

**** 



HT50 

♦YES ♦♦*♦ 
* * * 
♦ X BO ♦ 



,^Hf***^HfSlf**:t'**** 

* * 

♦MVE 1ST J-LIS^ 
♦ENT AUJCNT TO^ 
♦1ST I-TBL ENT^ 

♦ (CONTJ ♦ 

:tt************** 



ii4i^m*********** 

* * 

* HTFPTk=STRT ♦ 
♦OF THIS J-LST^ 

* ENTKY ♦ 

* * 



;{(* « 4tt * « ;«< 3«< » « )«<« # * ^c 



♦ SET ♦. 
♦J$HEAQ=HTfPTk^ 

* * 

4i^^^i:t^^:f ******** 



* * 
X CI* 



4c ]jc«3tc4i«« «:«<:{<«:«<« "f* 

♦ * 

♦CALC AODR TO ♦ 
♦MOVE NEXT ENT^ 

♦ TO & SET ♦ 

♦ (CONT) ♦ 

^i**:ff**:li:*:^i)i**:t'** 



^^ilf:liHf*itf********^*t 



« « « :(( itcA « i(t 4c « 9!c « :>!e 4: lit 



;ic :(c ;{< <c « « ;jc 4! 4> « '{< « « -4c :jc 
« * 

* SfcT NEXT « 

♦POIMTEP (11= ♦ 

* HTFPTR * 

* * 

4c >!c4c ^t^cstc*: 4( <c4c4c4'4' * A 



* * 

* MOVE FNTPY * 
*(T+1) TO NEW *. 

* LOfATIGN * 

* * 
<.-4c* « *** 4c4c4c«4c« « * 
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Chart 68. Table Collapse (Page 1 of 2) 
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Chart 69. Compilation Wrap-Up Driver (Page 1 of 2) 
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PART 9 - SUPPOFTT 

CALL/3 6 0-OS PL/I routines which perform support functions for other 
routines are described in this subsection. The routines are discussed 
in alphabetic order according to their mnemonics, as shown below. 
Detailed logic diagrams for the routines appear at the end of the 
subsection. 

Array Expression Error ($AREXP) 

Compiler Error ($CERR) 

Output Director ($GPUT) 

Get Next Triad Entry C$GTRIAD) 

Constant Processor ($NCONS, $NCON) 

Constant Conversion ($NCVT) 

Library Search ($NLSIB) 

Segment Management ($WBACK, $WSTEP, $WEXP, $WCTCT) 

Error Message Editor ($XERR) 
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TITLE: ARRAY EXPRESSION ERROR ($AREXP) 

Program Definition 

Purpose and Osage 

The Array Expression Error routine is used to generate the error message 
for an array expression in an illegal position, A value of zero is 
substituted for the illegal expression. 

Description 

An error message is output- The result fields from expression 
processing are set to a fixed-point zero. 

Errors Detected 

ARRAY EXPRESSION ILLEGAL. (23) 
Local Variables 
None 

Program Interface 
Entry Points 
$AREXP. No parameters. 
Exit Conditions 
Normal exit. 
Routines Called 

$XERR Error Message Editor 

Global Variables 

$NLTKN Expression Processing Results 

$NLOPN Left Operand Area of Expression Processing 

Logic Diagram 

Chart 70 shows the detailed logic diagram for the Array Expression Error 
routine. 
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TITLE: COMPILER ERROR C$CERR) 

Program Definition 

Purpose and Usage 

The Compiler Error routine fields all hardware interrupts caused by 
the compiler. It also accepts calls from points in the compiler where 
an unrecoverable error is detected • 

Description 

A message indicating the offset inside the compiler phase where the 
error was detected or generated is printed on the terminal. Compilation 
is then terminated. 

The format of the issued message is shown below. 

PLIiixxxxxx: INVALID SOURCE PROGRAM — COMPILE TERMINATED 

If ii = 00, $CERR was called by a compiler module, xxxxxx will be the 
hexadecimal offset from the beginning of the compiler to the beginning 
of the module that called $CERR. 

If ii i^ 00, $CERR was invoked because of a program interrupt, and ii is 
the program interrupt code. (See IBM Svstem/360 Principles of Operation 
(GA22-6821) for the meaning of various program interrupt codes.) 
xxxxxx will be the offset from the beginning of the compiler to the point 
of interruption. 

Errors Detected 

(iixxxxxx) PROGRAM ERROR - COMPILE TERMINATED, (im) 

Local Variables: None 

Program Interface 

Entry Points 

$CERR. This entry is called by compiler modules which detect an error 
warranting cessation of compilation. Register C3 contains the address 
of the origin of the module that detected the error. The high-order 
byte of C3 is zero. 

$CERR'm. When a program interrupt occurs, the Executive transfers 
to this entry via instructions beginning at ARINTRP in the 
communications area. The low-order three bytes of C3 contain the 
machine interrupt address. The high-order byte contains the program 
interrupt code. 

Exit Conditions: SVC to CALL/360-OS System. 

Routines Called 

$GPUT Output Director 

$SVC SVC Director 

Global Variables 

$BASE Base Address of Compiler 

Logic Diagram 

Chart 71 shows the detailed logic diagram for the Compiler Error routine. 
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TITLE: OUTPUT DIRECTOR ($GPUT) 

Program Definition 

Purpose and Usage 

The Output Director places a 120-character line in the terminal I/O 
buffer. While doing this, it removes trailing blanks and checks for 
line width • 

Description 

A 120-character line is processed and placed in the terminal I/O buffer. 
If there is insufficient space in the buffer, it is emptied first. 
Trailing blanks are removed from the line. If the line exceeds the 
line width, it is broken into segments of the maximum length. Before 
return, the line is cleared to blanks. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

Normal linkage to $GPUT. Register P5 has address of line. 

Exit Conditions 

Normal exit. All registers restored. Line cleared. 

Routines Called 

$SVC SVC Director 

Global Variables 

None 

Logic Diagram 

Chart 72 shows the detailed logic diagram for the Output Director 
routine. 
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TITLE: GET NEXT TRIAD ENTRY ($GTRIAD) 

Program Definition 

Purpose and Usage 

The Get Next Triad Entry routine gets the next available entry in the 
triad table (Z table). 

Description 

The Generate Triad macro (GTRD) calls this routine to get the next 
available entry in the triad table • When the triad table exceeds a 
segment (256 bytes), a call is made to $WEXP to link another segment 
to the triad table. 

Errors Detected 

None 

Local Variables 

$XSAVE+4 Save area for register C2 

W$CGTR Save area for register CI 

Program Interface 

Entry Points 

$GTRIAD 

Calling Sequence 

L CI, aGTRIAD 
BALR CI, CI 

Exit Conditions 

P5 contains address of triad entry. 

Routines Called 

$WEXP Segment Management 

Global Variables 

None 

Logic Diagram 

Chart 73 shows the detailed logic diagram for the Get Next Triad Entry 
routine. 
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TITLE: CONSTANT PROCESSOR ($NCONS, $NCON> 

Program Definit:ion 

Purpose and Usage 

The Constant Processor controls the conversion of source constants ^ 
immediate constants ^ DED constants^ and other compiler-generated 
constants. 

Description 

The constant is converted to its binary representation if it is an 
arithmetic source constant, Alphcimeric constants longer than 16 bytes 
or containing primes or split over source lines are not converted until 
compilation wrap-up. Each such constant is given its own constant 
table (C table) entry. After any required conversion, the constant 
is searched in the constant table to determine if the constant has 
been previously entered. If found, that constant table entry is 
returned for the constant. If not found, a new entry is added to the 
constant table. Storage is allocated for the constant in static and 
constants storage. Alignment is dependent on length. A length of 
four is word-aligned, lengths of eight and 16 are doubleword- aligned, 
and all others are byte- aligned. The constant table is divided into 
four lists for searching: those of length four, those of length eight, 
those of length 16, and all others. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$NCONS. When entered through $NCONS, register GO contains the fullword 
value of the constant to be searched. 

$NCON. When entered through $NCON, the value of $NXFLG indicates the 
type of call. If zero, register G7 contains the length of the constant 
(in bytes) and registers Fl and F2 contain the converted value. If 
one, register P5 contains the address of the operand area of a source 
constant. If two, the left and right operand areas contain the real 
and imaginary parts of a complex source constant. 

Exit Conditions 

Control returns to the calling routine immediately following the 
invoking call. Register GO contains a constant table pointer token. 
The floating-point registers are destroyed if the constant required 
conversion. 

Routines Called 

$NCVT Constant Conversion 

$WEXP Segment Management 
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Global Variables 



$ASC 

$ERROR 

$NC1W 

$NC2W 

$NDIG 

$NOTKN 

$NROPN 

$NXFLG 

$VLPAK 

A List 

C Table 



Offset to Next Available Byte in Static and Constants 

Area 
Parameter List for Error Message Editor 
Head of Chain of Constant Table 4-Byte Entries 
Head of Chain of Constant Table 8 -Byte Entries 
Head of Chain of Constant Table 16-Byte Entries 
Floating-Point Value of Digit of Source Constant 
Expression Processing Results 
Right Operand Area for Expression Processing 
Communication Flag 
Doubleword-Aligned Work Area 
Dictionary Attribute List 
Constant Table 



Logic Diagram 

Chart 74 shows the detailed logic diagram for the Constant Processor 
routine. 
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TITLE: CONSTANT CONVERSION ($NCVT) 

Proqrcnn Definitiion 

Purpose and Usage 

The Constant Conversion routine converts a source constant of any 
arithmetic type to any arithmetic target type. 

Description 

The dictionary attribute list entry of a source constant contains the 
type^ scale, and precision of the constant as it appeared in the source 
program. This entry also contains the attributes required for the 
constant in the object program. The source constant is scanned and 
converted to an intermediate double-precision floating-point form. 
This value is then converted to the largest type with real mode. 

Errors Detected 

CONVERSION OF CONSTANT PRODUCES EXPONENT OUT OF RANGE- (98) 
CONSTANT VALUE OR PRECISION TOO LARGE. (99) 

Local Variables 

None 

Program Interface 

Entry Points 

$NCVT. The address of the dictionary attribute node of the constant 
to be converted is in register PU. Register P5 contains the address 
of the operand area which contains the sign to be applied to the 
constant. 

Exit Conditions 

Control returns to the calling routine immediately after the invoking 
call. Register G2 contains the length of the converted constant. 
If the length is four bytes , the converted constant is returned in 
register GO. If the length is eight bytes, the most significant half 
of the converted constant is returned in register GO and the least 
significant half in register Gl. 

Routines Called 

$XERR Error Message Editor 

$WEXP Segment Management 

Global Variables 

$ERROR Parameter List for Error Message Editor 

$NDIG Floating-Point Value of Digit of Source Constant 

$NOPI Field of $NO 

$VLPAK Doubleword- Aligned Work Area 

A List Dictionary Attribute List 

Z Table Triad Table 

Logic Diagram 

Chart 75 shows the detailed logic diagram for the Constant Conversion 
routine. 
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TITLE: LIBRARY SEARCH ($NLSIB) 

Program Definition 

Purpose and Usage 

Given the number corresponding to a library entry name and the number 

(minus 1) of parameters used in the call to the entry ^ the Library 

Search routine returns a pointer to the adcon that is to provide cover 
for the entry. 

Description 

This routine returns (to the calling routine) a pointer to the adcon 
that will contain the entry point of the routine at runtime. For 
loading, library routines are of two types: fixed adcon location 
routines and variable adcon location routines. 

For any fixed adcon routine, the adcon that will contain the location 
of the routine will always be at the same displacement in adcon storage. 
The adcon displacement for a variable adcon routine may vary for 
different programs. 

Furthermore, all fixed adcon routines will store the same parameter 
table. Calls to library routines may require the passing of arguments. 
In such cases, the actual arguments or the locations of the argtiments 
will be put into entries in the parameter table, and the location of 
the parameter table will be passed to the particular library routine. 

For a variable adcon routine, $NLSIB allocates storage sufficient for 
a block adcon area (BAA) from the available adcon region. After the 
routine is loaded, this BAA will contciin the location of the routine 
and an area reserved for passing arguments. Since this is a special 
use of a BAA, remaining fields of the BAA will not be used. 

Note: Recognition of two types of library routines saves adcon area. 
The fixed adcon routines are most frequently used. A word of 
the adcon area is permanently reserved for each of these 
(regardless of whether a particular routine is loaded) . A 
variable adcon routine requires much more adcon area. However, 
an area is reserved for a particular variable adcon routine 
only if the routine is actually loaded. 

A check is made to determine if the adcon for the entry is in a fixed 
place in the adcon area. If it is not, the library load table entry 
corresponding to the entry name is checked to see if the required BAA 
has been assigned for the entry name. If the BAA has already been 
assigned, a pointer to the start of this BAA (with the library base 
code in the high-order byte) is returned to the calling routine. If 
the BAA has not been assigned, it is assigned; the pointer is placed 
in the library load table entry corresponding to the entry name, and 
the pointer (as described above) is returned to the calling routine. 

If the adcon for the entry name is in a fixed place in the adcon area, 
a check is made to see if the present parameter table (pointed to by 
$PARAM) is large enough. If so, the library load table entry is set 
to point to the adcon and the adcon pointer (with the library base 
code in the high-order byte) is returned to the calling routine. If, 
on the other hand, the parameter table is not large enough, a new table 
is allocated before setting the library load table entry, etc., as 
described above. 

Errors Detected 

None 
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Local Variables 

None 

Entry Points 

$NLSIB 

Input Parameters 

GO. One less than the nmnber of words needed in the parameter table. 
G2. Library load number of entry name. 

Exit Conditions 

Normal exit. Return to caller. 

G7. Pointer to adcon for the entry name with the library base code 
in the high-order byte. 

Routines Called 

None 

Global Variables 

L Table Library Load Table 

$HADCN Length of Adcon Area 

$PSIZE Length of Current Library Parameter Table 

$PARAM Address of Library Parameter Table 

L$LIBX Adcon Displacement 

Logic Diagram 

Chart 76 shows the detailed logic diagram for the Library Search routine. 
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TITLE; SEGMENT MANAGEMENT ($WBACK^ $WCTCT, $WEXP, $WSTEP) 

Program Definii:ion 

Purpose and Usage 

The Segment Management routines provide the necessary bookkeeping 
services in support of compiler macros which manipulate expandable 
table segments • 

Description 

The inline code generated by the compiler macros which process 
expandable tables must, under certain conditions, step from one table 
segment to another. Since the amount of coding required for these 
operations is common to all tables, and is somewhat lengthy to generate 
inline, the necessary functions are isolated as independent subroutines 
as follows: 

$WBACK Proceeds from one segment of a table to the preceding 
segment; the old segment is retained as part of the 
table and is not released to the free pool. 

$WCTCT Releases a segment from the table to the free pool and 
adjusts pointers to the preceding segment. 

$WEXP Adds a new segment to the table and adjusts pointers 
to it. 

$WSTEP Proceeds from segment of a table to the succeeding 

segment, where the succeeding segment was already part 
of the table. 

Errors Detected 

None 

Local Variables 

$XSAVE Save area for register C2 
Program Interface - $WBACK 
Entry Points 

$WBACK 

Calling Sequence 

CALL WHACK 

DC AL2 ( (SEGSZE-8) /taL*tdL+4) 

DC AL2 (t$TAIL-$TAILS) 

where t is the table-prefix letter for the table to be used. 
The first constant indicates the number of unused bytes at the end 
of a segment; segment size is not usually evenly divisible by item 
size. The second constant gives the relative distance of the pointers 
for the called table into the tables of segment control pointers. 

Exit Conditions 

Segment control pointers t$CDRR and t$CURR+a are updated to point to 
the beginning and end of the segment now active. Register G6 points 
to the beginning~of -segment control word of the new segment. The 
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condition code is set to zero if an attempt was made to back off the 
first segment of the table; otherwise^ it is nonzero. 

Program Interface - $WCTCT 

Entry Points 

$WCTCT 

Calling Sequence 

L P5^t$TAIL 
CALL WCTCT 

Exit Conditions 

The released segment is chained to the free segment list (SEGLST) . 
t$TAIL is updated to point to the current segment end. The condition 
code is set to zero if an attempt was made to release the first segment 
of a table? otherwise , it is nonzero* 

Program Interface - $WEXP 

Entry Points 

$WEXP 

Calling Sequence 

L P5^t$TAIL 
CALL WEXP 

Exit Conditions 

Register G5 points to the top- of- segment control word of the newly 
added segment. The macro code will store this into t$CURR. Register 
G6 points to the first available data space in the new segment. The 
macro code will store this into t$ACTV. Register G7 and t$TAIL point 
to the end-of -segment control word of the newly added segment. FREPTR 
or SEGLST is updated y depending upon whether new space had to be 
acquired for the new segment or a previously freed segment could be 
used. If insufficient space remains in the user's area for the creation 
of a new segment, an SVC 6 is issued to restart the compilation with 
more space. 

Program Interface - $WSTEP 

Entry Points 

$WSTEP 

Calling Sequence 

CALL WSTEP 

DC AL2 (expression) 

DC AL2 (t$TAIL-$TAILS) 

Expression has the value X'FFOO' for the I table and C table. Items 
in these two tables are variable lengthy and computation of values 
for t$CURR must be handled separately for these cases. For all other 
tables^ expression has the value (SEGSZE-8)/taL*taL and represents 
the number of unused bytes at the end of a segment. The second constant 
gives the relative distance of the pointers for the called table into 
the tables of segment control pointers. 
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Exit Conditions 

Segment control pointers t$CURR and t$CURR'i-4 are updated to point to 
the beginning and end of the segment now active. Register G6 points 
to the beginning- of- segment control word of the new segment. The 
condition code is set to zero if an attempt was made to step beyond 
the end of the table; otherwiseir it is nonzero. 

Global Variables 

SEGLST Pointer to Beginning- of- Segment Control Word 

FREPTR Pointer to First Available Word in Compiler's Variable 

Data Area 
$SEVCT Total Number of Error Messages Produced 
$ACODE Pointer to Next Available Byte in Object Code Area 

Routines Called 

None 

Logic Diagrams 

Charts 77 through 80 show the detailed logic diagrams for the Segment 
Management routines. 
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TITLE: ERROR MESSAGE EDITOR ($XERR) 

Program Definition 

Purpose and Usage 

The Error Message Editor constructs^ parameterizes, and prints a 
diagnostic error message in response to encoded calls from other 
compiler routines. 

Description 

Upon detection of error conditions, compiler routines use the Error 
Interface macro (GENER) to call the Error Message Editor. (See Appendix 
C.) The calling sequence supplies information which allows the editor 
to obtain the source line and column number at which the error was 
detected and to insert variables into the main text of the message. 

The GENER macro sets pointers and strings into a communications area, 
$ERROR, as follows: 



$ERROR 



+ 4 



+ 8 



+12 



+16 



+20 



r 


Pointer to Error Token 


1 Parameter- 1 Pointer 


1 Parameter- 2 Pointer 


1 Parameter-3 Pointer 




Character String (8 bytes) 



The pointer to the error token is always present. By analyzing the 
segment of the token table (T table) vdiich contains the token pointed 
to, the Error Message Editor is able to obtain the number of the coliamn 
in the source statement which contains the first character of the 
syntactic unit at which the error was found. The Error Message Editor 
then scans backwards through the token table until a new-line token 
is found; this token enables the source -statement line number to be 
obtained. 

The three parameter pointers are optional. If no character string 
is given, the first parameter with a zero pointer ends the parameter 
list. If a character string is present, it becomes the value associated 
with the first parameter with a zero pointer. Parameter pointers point 
either to tokens or to dictionary name list (N list) nodes. The tokens 
represent delimiters, identifiers, or constants. In each case, the 
Error Message Editor ultimately determines the length and location 
of an appropriate character string for each parameter? these strings 
are then inserted into the main text of the message when called for. 
Each message is identified by a message number obtained from the calling 
sequence. 
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To conserve as much space as possible, the texts of the error messages 
are encoded. The first byte of a message text contains the severity 
level code for that message. Thereafter, the message format is 
determined by control bytes which the Error Message Editor scans and 
interprets as follows: 

Olnnnnnnnnnnnn 

Immediate Data ; Insert the following n-H bytes of text into the 
message. 

OOllpppppppppppp 

Remote Data ; Insert into the message the data found at displacement 
p in the text table, (Location p must be a control byte for immediate 
data,) 

OlOOpppppppppppp 

Transfer; Continue the scan of the text at the control byte found 
at displacement p in the text table, 

Olllnnnn 

Parameter ; Insert the character string associated with parameter n 
into the message, 

00000000 

End of Message ; Stop scanning the text and print the completed message. 

To further conserve space, the messages are constructed from a 
standardized set of words and phrases, which minimizes the amount of 
immediate data required in the encoded texts. 

The Error Message Editor also maintains a variable, $SEVCO, which is 
the highest severity level encountered during compilation. This code 
is used to suspend execution when fatal errors have been detected. 
If insufficient space was allocated to the compiler, preventing 
completion of compilation, the compiler requests additional space from 
the CALL/360-OS Executive and begins compilation of the source program 
again. Under these circumstances, any error messages printed during 
the first attempt will be printed again on the retry. To avoid user 
confusion that would result from this situation, the Error Message 
Editor maintains a message count, $SEVCT, When a retry is attempted, 
this count is moved to NOERMSG, The Error Message Editor will not 
print a message until $SEVCT (the current compilation count) exceeds 
NOERMSG (previous compilation count) , This insures that an error 
message appears only once, regardless of the number of recompilations 
needed. 

Errors Detected 

None 

Local Variables 

XDPIL Table of parameter pointers and lengths 
XDWORK Miscellaneous work area 
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Program Interface 

Entry Points 

$XERR 

Calling Sequence 

L Cl^aHERR 

BALR Cl^Cl 

DC AL2 (inessage-ntiinber) 

$ERROR area must be preset with pointers and strings by use of the 
GENER macro. 

Exit Conditions 

Control returns to the caller immediately following the invoking 
call (plus 2 bytes) . 

Routines Called 

$GPUT Output Director 

Global Variables 

$SEVCO Highest Severity Code 

$SEVCT Total Number of Error Messages Produced 

NOERMSG Number of Error Messages (Communications Area) 

$VLINE Print-Line Work Area 

$VLPAK Doubleword- Aligned Work Area 

$ERROR Parameter List for Error Message Editor 

$LLINE Last-Line-Number Pointer 

FREPTR Pointer to First Available Word in Compiler's Variable 

Data Area 

T Table Token Table 

A List Dictionary Attribute List 

N List Dictionary Name List 

Logic Diagram 

Chart 81 shows the detailed logic diagram for the Error Message Editor 
routine. 
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PART 9 LOGIC DIAGRAMS 

The detailed logic diagrams for the support routines follow. 



PL/ I SVSTfeMS MANUAL 
SAREXP 



iAKEXP 



•**•**«**«**«** 



* * 

* i>tT * 

* fcXPRESSIUN * 

* RESULT TO ♦ 

* ZERO. * 



4i*4i*4>4>**4i4>***4t4> 

RETURN '■■ 

4<**«4i4i4i4i4i«;»4c*«* 



Chart 70. Array Expression Error 
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PL/T SYSTEMS MANUAL 
SCFRR 






^^Hlft *********** 

♦ * 

♦ CALC OFFSET ♦ 

♦ IN COMPILER * 

♦ FROM REG n ♦ 

♦ ♦ 
**************^ 



*************** 



PREPARE 
MESSAGE 



***********if**,^ 



********^****,t, 
♦tGPUT 



OUTPUT 
MESSAGF 



************** 



******nL**^ti)i**** 
♦lAAOUM ♦ 

* * 



*********ti****^t 



**************n, 



Chart 71. Compiler Error 
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ni/I SV<5TF»»S MANUAL 
»r,PUT 



$GPU1 



fAlL /i6G-0S? 



*• ♦ 

* «FViOVC * 
X* TRAIL rNG * 

* 81ANK«; * 

* « 



:»«**4'*«*«*'f «-«==»« 



*PUr OUT LIN 
* TO fftlHtCR 



«<!««<.«<« -it 



* BLANK Out 



♦ J^♦«*<*«.^<•l(t4l!< 



P I T UffN 



<c4t«<:%4ii^««4i«Kc««4r 



f OBTAIN X = * 

« M!M(LINE * 
* WIOTH, LINE * 
< LEMGTH ) * 

:«< <c >;. :X «<■*<( 41 *<:« 4c «« 



ROOM IM 
TFPMINAL 
BUFFGfi ' 



* * 

* * 
, X*EMPTY UUTFCA * 

* * 

* * 



:«•!; f***<l 



* MPVF X * 
X«-fH/*PACTf:RS TO* 

« TMRUF i» 

* ♦ 



* * 

* IMStRT ^>E^ * 
+ L I MF * . 

* fHARACTLf ♦ 

* * 



ALL 0"= LIMt^ *y Af,# 

ij<;Fn ? * ♦ * 



4r *«*«*«*«*««**« 



* flLA^4K OUT 

* L INF 



****** 4c ****4i4'«* 



*************** 

l?FTIJ«N 

*************** 
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Chart 72. Output Director 
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tGTRIAO 



*6TRIA0 



«> OtI CURRgNT * 

.X* FKfct bPACe ♦ 

♦ ZtACTV ♦ 

« * 

«i«««*«i|ii|i4i4>«»*4<4i 



«i«4>4i4i>«i***4i4i*«** 



♦ AOtJ LtNbTH OFO 

* ENTRy ♦ 

« * 

4i4i4i4i4i*«4i»i|i»4i4<4'4i 



ones IT f-iT 

• IN SfcGMfNT ? 



♦$teFKF ♦ 



m.?i5? 






<( * 

» UPDATE FREE • 
♦SPACE POINTtK* 

* zsAcrv * 

* * 



* 4r * * >{i 41 « « « 41 4iitiiti)|( ft 



jUm « J(i Di « »> i|t 41 » iti « * 4> « 



41 * » ;<> 41 41 « « 4> « « « «- << •,'• 



♦ CIEAK TRIAD * 

♦ ARfcA * 



4141 4< * iC 41 4i ♦ « 4> « « 4i )«• 4> 



4i4>*4>««4i4t4t*4>4'4>4'4i 

« 4> 

♦ ADO 1 TO ♦ 
♦CURRENT TRIAD* 
♦NUMbEh $NTCUK* 

4> 4< 

I^4i4<4<4i4<*«4'«»4<4c4.4< 



« * 4t 41 4< 41 « 4' 4> ♦ # ♦ 4t * * 

EXIT 

4i4r4<4t*«4>«4'4<4i4<4>*4> 



Chart 73. Get Next Triad Entry 
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SNCONS C >NCON 



*4t4t**4t*«4[4i4i«*4t4t 



**««**4i««t**«*** 



♦ *N0 


♦*♦ * ♦NO 


^^«8nI??{?*" • 


* ♦ ♦ OPNO AN ♦ 


....♦CI ♦ IMMEDIATE 


ALREADY * 


♦ ♦ ♦ CONST OR DEO? ♦ 


♦CONVERTED 7* 


»♦* ♦ ♦ 



SNCONS 



itc*^*tt********** 



♦ ♦ 
♦MOVE CONVTED ♦ 

♦ CONSTNT TO ♦ 
♦COMPARE REGS * 

♦ * 



♦ FORM CONST ♦ 

♦ FROM OPND ♦ 

♦ TOKEN ♦ 

♦ ♦ 
^^^'^♦♦♦♦♦♦♦♦♦♦^ 



♦♦♦ 
♦ « 
.♦B3 ■■ 



*4ii^<tE4c4>4i4E4c4r4i*«)|i* 



♦ DETERMINE * 

♦ LENGTH OF * 
♦CONSTANT TBL * 

♦ ENTRY * 



* * 
♦GET ENTRY FOR* 
♦NEW CONST IN ♦ 

* CONST TBL * 

* * 



♦ * 

♦ COMPLETE ♦ 

♦ CONST TBL * 

♦ ENTRY * 

♦ « 



♦ ALLOCATE ♦ 
X^ STATIC ♦ 

♦ STORAGE FOR ♦ 

♦ CONSTANT * 



^im************* 



4tte4i ***« 4i4i4i* ** ** 



NS18 

♦♦♦ 

♦ * 
..X B3* 

* * 



4c;^4c«4c**«**«*** 



NS18 

*** 
« « 
..X B3* 
♦ ♦ 



♦YES ♦♦♦♦ 
* ♦ ♦ 
♦ X AC ♦ 
? ♦ ♦ 2* 
♦ *♦♦♦ 



♦ *N0 
STRING ♦ 

CONTAIN PRIME 
' OR SPLIT OVER ♦ 

♦ LINES ? ♦ 



♦ * 

♦ MOVE STRING ♦ 
,X+ FROM SOURCE ♦. 

♦ TO COMPARE ♦ 

♦ REGS ♦ 



**4>4ii|r«*4>4i«*i»*4i4> 



EXIT > 



♦GET ENTRY FOR^ 

♦ CONSTANT IN ♦ 

♦ CONSTANT ♦ 

♦ TABLE ♦ 
*************** 



*************** 

* * 
♦FORM CONSTANT^ 
♦TBL ENT WITH ♦. 

♦ SOURCE PTR ♦ 
♦AND NO VALUE ♦ 
**♦♦*♦♦♦***♦*«* 



Chart 74. Constant Processor (Page 1 of 2) 
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SNCONS £ INCON 



X* COMVT CONST • 
• TO T€T TY^g • 



•••••♦•••* •••«>* 



• •NO 

♦ FLAG INDICATE • 

COMPLEX 

♦ CONSTANT ? • 



SOURCE 
CONSTANT 
IMAGINARY ? 



♦ ^YES 

BOTH REAL AND * 
COMPLEX PARTS • 
CONVERTED ? ♦ 



NS14 


NS17S 


« * 


NS18 


V 


NS18 


«**«#*««**«*««* 




* * 








« * 


•*• 


» ♦NO 


**** 




♦*** 


*MOVE COMPLEX * 


* * 


* ♦ 


* * 




* ♦ 


X» CONSTANT TO *.. 


.X C4* 


♦ TARGET TYPE 


♦ X 83 ♦ 


♦SET CONSTANT ♦. 


.X B3 ♦ 


♦COMPARE REGS * 




♦ COMPLEX ? ♦ 


♦ I* 


♦ ZERO ♦ 


* I* 


* * 


**4> 


* * 


***♦ 




**** 



*•**•****•**«** 



4i**4[*4<*4>*4>**4'** 



♦ * 

♦ SAVE REAL ♦ 

♦ HALF OF ♦ 

♦ CONSTANT ♦ 

♦ * 

♦ •*••♦«>♦•♦••*** 



NSIO 

♦ AOV TO « ♦ « 

♦ IMAGINARY ♦...X CI ♦ 

♦ HALF OF ♦ « !♦ 

♦ CONSTANT ♦ ♦♦♦♦ 



*•***«««** 4c4r4t** 



««****4e4i*4i**4iii* 



**4> ♦♦♦*♦♦*♦**♦♦ 



4c4i4r«***4t«4r4c*4>4c« 



NSI75 V 


NSl 


*##*m********** 




41* * * 


**** 


♦ ♦ ♦ DOUBLE ♦ 


* * 


*CU*,,X* CONSTANT ♦. 


..X B3 * 


♦ ♦ ♦ LENGTH ♦ 


♦ !♦ 


•4> * ♦ 


**** 
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$NCVT 



*NCVT 
*************** 



j^*iti**:tt*#:ti]lf***** 

* KEi^UCfc * 
*P«tLli>lbN OF ♦ 
♦LUNbT tJY NO. * 

* uf LtADING * 

* ZfcKCS ♦ 

#******:>i.**#**** 



8RANCH ON 

SOURCE 
CHARACTER 



«N0 **** 



CONSTANT TYPE 
FLOAT? 



*************iii* 



♦X A2 ♦ 
* 2* 



SCURCfc CHAR 
FfcklOD? 



HKt^lJ>I(jN > 



U ? 



»4ij(>4t«4t«i<c4i4(4<»>i<«4< 



*i)tT i'nfzLlSlUN* 
* Tu 15 ♦ 



« « ^tf « « If! >!< « <> «* <> « :(( 



» SET I^LAu « 

* INUUATING * 

* tKKoK IN * 

* CoNiTANi ♦ 



♦ i^ISCAkU * 

* DiGITS OF * 

♦ CONSTANT * 
♦UNTIL ONLY 15* 

* KfcMAIN * 
*************** 



SOUkLE CHAf< 
NUMotK ? 



SLURCf- CHAR 
TYPE = OTHfcR 



***^*j),**:^**:(f;i.ii.:i. 



♦ SET VALUt 01- * 

♦EXFQNfNT ZERO* 



♦ ♦««#*.; *-«♦««*<•*' 



*******7(t**4i*:tni:,-* 



♦SET EXPONENT *...X CO* 

* SIGN ^'LUS * * * 

* * *♦♦ 
******** At***\i'f* 



NV08 V 


NVIO 


V 






■it#**^:ii***:f*>f**1i' 


♦ ♦ 


*** 


♦ MULT VAL fiF » 


*StT VALUt OF ♦ 
K* ( i/IofuNT TO *. 


* * 


* CUNST BY 10 * 


.X 60* 


♦ AND ADD IN * 


♦ icHD * 


* * 


*VAL OF NUMhi, • 


* * 


*** 


* CmAR 1- 


****** >t))i#ifi**#** 







********* *:t**m* 

* * 

* ADVANCE TO * 

* NEXT SOURCE * 

* CHAR * 

* * 
*************** 



*************** 

* * 

* BRANCH ON ♦ 

* SOURCE ♦ 

* CHARACTEP ♦ 

* ♦ 

tl**i),*********Z)l* 



SOURCE CHAR 
• + •? 



*,lf!lf**^*****Mf*** 



*D3*..X*SET EXPONENT * 
* * *SIGN NEGATIVE* 



*************** 



<[ #YF<: *♦* 

» * » * 

♦ SOURCE CHAR = ^X D^* 



* ADVANCE TV * 

* NEXT Sru«^CE * 

* CHARACTEP * 

* ^ 



SnjRCE ("MAP A 
Oir-iT-? 



^•JLT VAI. OF ^ 

FXPQN RY IQ - . 

AAJD AOO IW > 

VAI OF DIG -> 

.' *****«-«*♦*- 4. ' ^ 



*** 
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Chart 75. Constant Conversion (Page 1 of 2) 



PUl SYSTEMS MANUAL 
INCVT 



♦ ♦ 
♦AO * 



tXPONfcNT SIGN 
MINUS? 



^^:^il^t ********** 

* * 

* CHANGE SIGN ♦ 

* UF EXPONENT * 

* VALUE ♦ 

* * 

:^:^:iLrf>^********** 



*BO*X TARGET 

* * * PftECISI0N>9 ? 



****^i******:lntHi4i 

* SUBTRACT ♦ 

* TARGET PREC ♦ 
♦MINUS 9 FROM * 

* VAL OF THE * 

* EXPON * 

:tHti^:tt*********** 



* MULTIPLY ♦ 
.X* VALUE OF ♦ 

♦ CONSTANT BY ♦ 
♦10**EXP0NENT * 
***^i^*******f** 



TARGET TYPE 
FLOAT? 



♦ NO 



* ♦ 

* ADO SIGN TO * 
.X*CONSTMT. VAL.*. 

♦AND OET. ITS ♦ 

* LENGTH * 



.X* 



^4'************* 

♦SET INDEX TO ♦ 

♦ 15 MINUS ♦ 
PkEtlSION ♦ 

» PLUS SCALE ♦ 

♦ FACTOR ♦ 
^fXt-************* 



38 ♦ ♦ NV39 


V 


* ♦ 


Kc^^^**^'**)^***^'* 


♦ ♦YES ♦♦♦ 


* * 


75 > OR = ♦ « ♦ 


♦ CONVERT ♦ 

♦ CONSTANT TO ♦ 


EXPONENT > OR ♦X CO^ 


- -78 ? * * * 


♦ FIXED POINT ♦ 


* ♦ *** 


* ♦ 



3)i^slf:f *********** 

* * 

♦ MULTIPLY 



♦ * 

♦SUb THE SRCE ♦ 
♦SCALt AND THfc^ 
*VAL OP INDEX ♦ 

♦ FKCM EXP ♦ 



4e 4t * « « « <C stc <( 4( 4c 4c >)( Kc )(c 

♦GENER98 ♦ 

♦ EXP OUT 0F~^ 

♦ KANGE ♦ 

♦ * 
***:^i4^****:|^il^t'*** 



4(Xe*4> ««>«(«« ^«« *)«(« 



♦SET CONSTANT ♦ 
♦VALUE TO ZERC* 



]((«« :(cXc4<4c« «:«c 4i« ««:(: 



:tL************** 



* ♦NO 

CONSTANT ♦ 
VALUE > 2^+31 

? * 



TARGET SCALE 

> SOURCE 

SCALE ? 



TAKbcT TYPE 

FLUAT? 



NV38 

♦YES ♦♦♦ 
* t' * 
X B2* 

* * 
*** 



NVbO V 

:lf,lfi#1tL:tfil- ********* 

♦ ADD THE ♦ ♦♦♦ 
♦TAKbtT SCALE ♦ * ♦ 
♦TU THE VALUE ♦...X BO^ 

♦ OF THE * * ♦ 

♦ EXPONENT ♦ ♦♦♦ 



ERROR IN 

CONVERTING 

CONSTANT? 



4 :|c « :4i « « « :«[ « << «4i « « '(c 

♦GENER99 * 

♦ CONSTANT * 

♦ TRUNCATED * 

♦ * 

**:ti^^i*3lfiJti:([:tf***** 



♦ * 

♦ GENERATE * 

♦ TRIAD TO ♦ 

♦ FORCE FIXED ♦ 

♦ OVERFLOW ♦ 

:^i^iMF************ 



NV475 

♦ SET FLAG ♦ 

♦ INDICATING * 

♦ ERROR IN * 

♦ CCNVERTING * 

♦ CONSTANT * 

:(fi^Tlf7i:Xf ********** 



NV60 

V 

^^:tf********3tc:iL;t::tf* 
* 

♦ EXIT 

******** ****i>c** 



NV48 
*************** 

* * *** 

* ADO SIGN TO ♦ * *• 

* CONSTANT ♦...X Bf* 

* VALUE * * * 

* * *** 
*************** 



Chart 75. Constant Conversion (Page 2 of 2) 
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SNLSIB 



$NLSI6 



4(4t4(««*4i4>4<*««*«* 



* INITIALIZE * 



4i«4i#4(4i4<*«*«««3^4( 



DOfcS ENTRY 

NAME KEQUIRE 

A B.A.A. ? 



IS PARAMETER 

LIST LARGE 

ENOUGH ? 



* ♦ 

♦ALCT SfC fOH * 
*NEW PARA LSI * 
♦6 SET $PAKAM * 
*T(J PT (CONT) * 



4i4t«4< 4'4c«X'4(*«3(c««4( 

* » 
♦TO IT, SPSIZE* 

* = LENTH OF * 

* NEW PARAM * 

* LIST ♦ 
4(4<«4(«4'«««»4(«4«4( 



* * GL20 


GLIO V 


* ♦ 


4i4'<(:i(4'««4c4c4<4t4t4'4t« 


♦ *YES **♦ 


* 4t 


HAS ADCON * ♦ ♦ 


♦ PUT PTR TO * 


ALREADY BEEN *X B8* 


* ADCN IN LD * 


ASSIGNtu ? ♦ ♦ * 


*TBL ENTRY FK * 


4< * f** 


♦ (CUNT) « 


* * 


;jc4'4<4'4t4(4'«4<«4c4c4')(c« 



4c 4c 4c»4c« ««*««««♦* 
4c 4c 

♦ALLOC SPC FOR^ 
♦ BLK ADCON ♦ 
♦AREA AND PUT ♦ 
♦PTR TO (CONTi^ 

«c4c4(4c^«*«4c4c4c^^«4c 



4c 4c 4c 4c 414c 4'*4c 4c 4c 4c 4c 4c 4c 

♦ B.A.A. IN ♦ 

♦ LOAD TBL ♦ 

♦ ENTRY FOR ♦. 

♦ THIS LIB ♦ 

♦ tNTRY NAME ♦ 

4c4c4c4c4c4c4'4c«4>4c^4c4c4< 



4c :{< ;ic 4^ 3!c « « 4c 4c 4c 4c 4c 4c 4c 4c 



This LI3 
ENTRY NAME 



4c*4c*4c4c4c*4c**4c**4, 



*KtTURN PTR TO* 
.X*AbLN k,ITri Lib*. 
* bA6t (CUNT) * 
« 4c 

«4i4c«;{*:i;4<««**4c*4c 



4c 4c4c 4c 4< 4c* 4c«4c 4c 4i4c ♦ 4c 



^ 4c 4c 4c 4c :{c >^ 4c 4c 4c )»: 4c 4: 4c 4c 



4!*4c4t4c4c4t4c«4c<- 

RETUkM 
♦ -,j!c4-*««*#*4c 
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Chart 76. Library Search 
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$WBACK 



«««4(i<(4c**4<4i4<'C»*4' 



* GET P$CURR 

* POINTER 



:(c4c««]|ci(c«#4<:«c«>te4cXc4c 



* * 

* LOCATE * 

* PRECEDING * 

* SEGMT. * 

* ♦ 



tUu OF TAoLt 



«4c;(c4t«4c»«4c<c;$c**4« 



.X*SET CONDITION*. 

♦ CODE TO 6 * 

* * 



* * 

,,X B7* 

* * 



* * 

* COMPUTL TOP ♦ 
♦OF NEW SEGMT * 

* AND UPDATE * 

* P$CURR ♦ 



* * 

* CUMPUTE ENU * 
*0F NEW SEGMT ♦ 

* AND UPDATt * 

* P$CUKR + 4 * 



* * 

♦SUPPLY TOP OF* 
♦NEW SEGMT FOR* 

* OUTPUT * 

* * 



♦ ♦ ♦ 

♦B7*X* EXIT 



Chart 77. Segment Management ($WBACK) 
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IHCTCT 



* * 
♦LOC. BEG. OF • 
«|EGHT. t6 be * 
•RELPASEO AND ♦ 

♦ END CF PRECED* 



IS SEGMT. TO*YFS 
HE RELEASED ♦ 
THE 1ST ♦ 

SEGMT. OF TRL ♦ 



«*«**«>«**4i*4i«** 



.X*SET CONO coot*. 
* > • 



««**«**««« «#4r4i* 



X 87* 

« * 



♦ ♦ 

♦ PUT POINTER * 
♦TO PRECEDING ♦ 

♦ <FGK|NT AT « 
» P$ TA I L • 



* SFT POINTER * 

* AT ENO UF ♦ 

* PRFCFDING ♦ 

* SEGMT. TO ♦ 

* 7 FRO ♦ 



* * 

* ATTACH • 

* RELEASED ♦ 

* SEGWT. T3 



4r***i»***««4t4Ei»4t* 



CODE NOT 
EQUAL TO 



4i4>4i****«<l>«***4>* 



♦ ♦ * 

♦ B7*X* EXIT 
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Chart 78. Segment 24anagement ($WCTCT) 
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tWEXP 



«4i*«**«««4i«**4t* 



4i4i*4c«4i*«*4t*«4>«* 



AMY SEG«^ENT 
FREE 7 
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♦SEGMENT LIST ♦ 
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SE FREE 
SEGMENT 



m****0******0** 
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BIG ENOUGH ♦ 
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♦ GET SPACE FOR^ 
.X^ SEGMNT FROM ♦. 

* WORKING ♦ 

♦ STCRAGE * 
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« ♦ 
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♦ SEGMENT ♦ 
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♦ NEW SEGMENT ♦ 



♦ ♦ 

♦ SET OUTPUT ♦ 

♦ POINTER TO ♦ 

♦ NEW SEGMENT ♦ 

« ♦ 



♦PUT NODE COOE^ 

♦ AND ZERO ♦ 

♦ POINTER AT ♦ 

♦ END OF NEW ♦ 

♦ SEGMENT ♦ 

*«4c«4r4i4ii|i****4<*4t 
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♦ PUT POINTER * 
♦TO FNO OF NEW* 

* SEGMENT AT ♦ 
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♦ * 

♦ LOAD OUTPUT ♦ 

♦ VALUES FOR * 

♦ P»CU«R AND ♦ 

♦ PIACTV ♦ 



EXIT 



Chart 79. Segment Management ($WEXP) 
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»WST€P 



♦ ^i************ 



♦ GFT PtCURR 

* POINTFR 



:^itt0^m**m******* 
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TABLE? 
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^f^t^Ki^i********* 



EXIT 
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♦UPDATE PfCURR* 
X*Tn TOP OF NEW* 

♦ SEGMT ♦ 

♦ ♦ 

*4i4i4<**«**4i«**4>« 



IS NEW SFGMT. 
LAST ONE IN 



IS CALL FOR 

TABLES r OR 
C? 



4>*«4i*4i**4>4i**4>4(* 
« * 

* USE P$ACTV * 
.X*PTR AS END OF*... 

*SEGMT MARKER ♦ 

* * 
*4>*4t4t4i4i*4t*4i4i4>4<* 



4c4r4i**4>****4i«*4c* 

♦ USE LST WD IN* 

♦ SEGMT AS ♦ 
.K* CONST TO *.. 

♦ COMPT UNUSD ♦ 

♦ SPACE ♦ 

4>«4(*4'4i***4i«i»«** 



**4i«****4<**4i*** 

♦ AOJ FOR ♦ 

♦ UNUSED SPCE ♦ 

♦ AT END OF ♦ 

♦ SEGMT USING ♦ 

♦ GIVN CONST ♦ 
*4i*«**i>**«4i*4>«* 



** 



****4<*4>4t4c4i*4r4i4i4t 



SET END OF * 

♦ 8 6*.. X* SEGMT MARKER ♦ 

♦ ♦ ♦AS COMPUTED ♦ 
♦* ♦IN PfCURP ♦ 4^ 

4i*4i4< 41 4>*4i* ****** 



*************** 



♦SUPPLY PSCURR* 
♦ AS OUTPUT ♦ 



*************** 



*************** 

* * 
♦SET COND CODE* 
♦NOT EQUAL TO ♦ 

* 41 
*************** 



*************** 

EXIT 
*************** 
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$XERR 

4i * 4i *%««** i«i 4c4i * 41 4< 



♦ ♦ 

* LOCATE ♦ 
♦MESSAGE TEXT ♦ 

♦ IN TABLE ♦ 

* ♦ 
*************** 



IS 1ST 

PARAMETER 

0? 



*************** 

* * 

* CLEAR PRINT * 

* LINE AND * 
♦INSERT HEADER* 

* * 
*************** 



IS 2N0 

PARAMETER 

0? 



XD0040 
*************** 

* * *** 
♦ASSIGN STRING* * ♦ 

.X*VALUES TO 2ND*...X B5+ 

* PARAMETER * * * 

* * ♦♦♦ 
*************** 



*************** 

* CONVERT * 

* MESSAGE ♦ 

* NUMBER AND * 

* INSERT IN ♦ 

* MESSAGE * 
*************** 



♦GET SEVERITY ♦ 

* CODE FROM ♦ 
♦MESSAGE TEXT,^ 

* CONVERT, ♦ 

* (CONT) * 
*************** 



*************** 

* * 
♦ASSIGN STRING* 
♦VALUES TO 3R0* 

* PARAMETER ♦ 

* * 
*************** 



*************** 

* * 

* FORMAT, & ♦ 

* INSERT IN ♦ 

* MESSAGE ♦ 

* * 
*************** 



*************** 
*XDPTR AO* 

* 5 * 

X^ ANALYZE ♦. 

♦ POINTER * 

* * 
*************** 



♦ASSIGN VALUES* 
X^ TO 1ST ♦. 

* PARAMETER ♦ 

* * 
*************** 



IS SEVERITY 

THE HIGHEST 

FOUND? 



*************** 

♦XDPTR AO* 
* 5 * 

X* ANALYZE *. 

* POINTER * 

* * 
*************** 



*************** 

* * 
*ASSIGN VALUES* 

X* TO 2ND *. 

* PARAMETER * 

* * 
*************** 



*************** 

* RETAIN * 
♦SEVERITY CODE* 

* FOR WRAP-UP ♦ 

* * 
*************** 



**** 

* * 
.X* AO 



*************** 



♦ASSIGN VALUES* ♦ ♦ 
X^ TO 3RD ♦...X AO 

♦ PARAMETER ♦ * 2* 

* * **** 
*************** 



♦ *N0 

* DOES ♦ 
PARAMETER 

♦ LIST INCLUDE * 

* A STRING? * 



*************** 

* * *** 

* GET LOC AND * ♦ * 
♦LENGTH (MINUS*-. .X BI+ 
♦TRALNG BLNKS)* * * 

* OF STRING ♦ *** 
*************** 
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* * 

* LOCATE LINE ♦ 
.X* AND COLUMN * 

* TOKEN * 

* ♦ 



IS TOKEN 

WITHIN GOOD 

RANGE? 



* * 

* USE POINTER ♦ 
X* TO LAST ♦. 

* ENTOKENED ♦ 

* LINE * 



4i«****4i*««4c:»4i4i4c 



^^^'♦♦♦^i^i**** 41^41 



IS TOKEN A 
NEW-LINE 
POINTER-* 



^f ************* 



*************** 



IS TOKEN A 

SEGMENT-TOP 

POINTER? 



HAS COLUMN 

VALUE BEEN 

FOUND? 



,X* 



************ 
* 
♦ GET COLUMN * 
VALUE * 
CHARACTER ♦ 
♦FROM SEGMENT ♦ 

****iK********** 



IS TOKEN A 
NEW-LINE 
POINTER? 



*1i********iti4iti** 

*LOC SRCE LINE* 
*N0 E MOVE UP ♦ 

* TO 5 NUM * 

* CHARS INTO * 

* MSG * 
*♦♦♦♦♦♦♦*♦*♦**♦ 



*************** 

* * *** 

* LOC FIRST * * ♦ 
X* TOKEN IN *...X A3* 

* PRECEDING * * * 

* SEGMENT ♦ ♦♦♦ 
♦*♦♦*♦*♦*♦*♦♦♦♦ 



SHOULD MSG 

HAVE COLUMN 

VALUE 

♦SUPPRESSED?* 



HAS COLUMN 

VALUE BEEN 

FOUND? 



XD0180 

**** 

* * 
*X A3 ♦ 

* 3* 
*♦♦* 

**** 

* * 
X* AG ♦ 
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* * 




XD0230 


* * 








♦ YFS 


♦♦♦♦ 




* 


* * 


PARAMETER? 




*X AO * 




* 


♦ 4* 




* 


♦♦♦* 



WILL PRINT 

LINE 

OVERFLOW? 



*4i4i***«*«*«4i4i4i« 



* * XOOI70 


V 


« * 




* *M0 *** 




IS TOKEN A * ♦ ♦ 


♦GET COUNT OF 


TOP-OF-SEGHT ♦X AO* 


♦POINTER FROM 


POINTER? ♦ ♦ ♦ 


* TEXT 


* * *** 





tHf*^*ti********** 



« * 

* GET COLUMN * 

* VALUE * 

* CHARACTER ♦ 
♦FROM SEGMENT * 



♦ADD 1 TO COL ♦ 

X* VAL, CONVT, ♦ 

♦FORMT C INSRT* 

♦INTO MESSAGE ♦ 



««4i4t4c««^** 



♦TEST OPERATORS 
♦ CODE IN ♦ 
♦MESSAGE TEXT ♦ 



TRANSFER? 



* * 

♦ SET SCANNER ♦ 

X+ TO LOCATION ♦... 

♦ OF NEW TEXT ♦ 

* * 



tt:******** 



«4:«4<*>«>:t'4c«4i«4c4i4c« 



REMOTE TEXT? 



* * 

♦GET LENGTH & ♦ 
♦LOC OF IMMED * 
♦TEXT; (CQNT) ♦ 

* » 



^t***t:********** 



*♦*♦ 



i(.4t4c>«<4i>(c4r« 



♦ GET LENGTH 
.X*AND LOCATION 

♦ OF REMOTE 

♦ TEXT 

« 4c 4c 4c « « 4t 4c « 4c «« « « 



*4i4<***^4>*««*4>** 



4i4t4c4c*4i**4ciic4c4i«4'* 

* * 
♦RESET MESSAGE^ 

* OPERAND ♦ 

* POINTER ♦ 

* 4c 
4c4c4c4<4[4i**««*««4c4< 



**,f *******'***** 



4c4:4c4c#4<*4c*«t4i4c4i 



DC 4c 4i **)tt4<*>4i **«<:** 

♦STEP MESSAGE ♦ 

♦ OPERAND ♦ 

♦ POINTER BY ♦. 

* LENGTH OF ♦ 

* TFXT ♦ 

4:4<4t4c4'***4<**4<4:** 



♦STEP SCANNER 
♦BY LENGTH OF 

♦ IMMED TEXT * 

* * 

4i4c4i4i4i4i«4i4i**4i4>** 



♦...X DO^ 



4c«4c«4c4c««4i 



4c«*]»*4<4t«*4<* 

EXIT 

4t*4>**4t4i*4c«* 
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* BRANCH ON 
.X* PARAMETER 

♦ NUMBER 

* 



♦ GET LENGTH ♦ 
,X* AND LOC OF ♦. 

♦1ST PARAMETER* 

* * 



MILL PRINT 

LINE 

OVERFLOW? 



* GET LENGTH ♦ 
.X* AND LOC OF ♦. 

*2N0 PARAMETER* 

♦ * 



^■$im************ 



* GET LENGTH * 
.X* AND LOC OF ♦. 

*3RD PARAMETER* 

* « 
*************** 



*************** 

* * 
*RESET MESSAGE* 

* OPERAND ♦ 

* POINTER * 

* * 
*************** 



*************** 

* * 
♦USE LINE AND ♦ 

.X*COLUMN PTR AS* 

* PARAMETER * 

* ♦ 
*************** 



*************** 

* * 
♦LOG AND MOVE* 

.X*LITERAL TEXT *. 
*(RELATIVE TO ♦ 

* CODE AREA) * 
*************** 







XDPTR AO* 


*♦* 


5 * 


* * 


ANALYZE *. 


.X CI* 


POINTER * 


* ♦ 




*** 



************* 



*************** 

* * 

* LOC £ MOVE * 

* PARAM TEXT * 
♦(RELATIVE TO * 
*USER«S AREA) ♦ 
*************** 



*************** 



*************** 
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* * ♦ 

♦AO X* ENTER 

* t * 

*^f* *************** 



* *yES 

* IS TOKEN CODE ♦ 

A MULTIPLE OF * 

♦ 4? * 



*************** 



*************** 



*************** 

* * 
*GET LOCATION ♦ 

.X*AND LENGTH OF*. 

* CONSTANT ♦ 
4> * 
*************** 



*************** 

EXIT 
*************** 



XD450 

*************** 
♦FOLLOW CHAIN * 

* LINKS TO ♦ 
..X* NON-ATTRIB 

* MODE (NAME 

* ENTRY) 
*************^ 



*. ..X A2* 



* GET LOC & * 
♦LENGTH (MINUS* 

* TRAILING * 

* BLNKS) OF * 

* lOENTlFER * 
*************** 



* IDENTIFIER? *X A2* 

* ♦ * * 

* * *** 



** ************* 

* * * 

*A5*X* EXIT 

* * * 

/f* ************* 



LEFT PAREN? 



* USE LOC OF ♦ 
-X*LITERAL LEFT *. 

*PAREN IN TBL * 

* * 
*************** 



.X* 



USE LOC OF * 
LITERAL * 
DELIMITER * 
'i' FROM TBL * 
*************** 



* * * USE NULL 
*A6*..X* LENGTH AND 

* * * LOCATION 



*...X A5* 



* *YES 

* * 

* RIGHT PAREN? *. 



*************** 



*************** 

* * 

* USE LOC OF * 
.X*LITERAL RIGHT*. 

*PAREN IN TBL * 

* ♦ 
*************** 



*************** 

* * 
♦USE LENGTH OF* 

X* DELIMITER ♦ 

* FROM TABLE * 

* * 
*************** 



*************** 

* * 

* GET LOC £ ♦ 
X* LENGTH OF * 

♦ KEYWORD ♦ 

♦ LITERAL * 
*************** 



*************** 

* * V 

* FLAG OUTPUT * 
♦AS A LITERAL * 

* PARAMETER ♦ 

* * 
*************** 



*************** 

EXIT 

*************** 



*************** 

EXIT 

*************** 



♦X D5* 


♦ * 


♦ ♦* 


*** 


« * 


X* A6* 


* * 


*** 


X 00 440 
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PART 10 - EXECDTIVE INTERFACE 

TITLE: SVC DIRECTOR ($SVC) 

Program Definition 

Purpose and Usage 

The SVC Director handles all SVC interfaces with the CALL/360-OS system 
for the CALL/360-OS PL/I compiler • 

Description 

The SVC code is picked up from the halfword following the BALR to this 
routine. The proper SVC is executed. Return is to the location 
immediately following the halfword SVC code. 

Errors Detected 

None 

Local Variables 

None 

Program Interface 

Entry Points 

$SVC, Halfword SVC code immediately after BALR to this routine. 

Calling Sequence 

L C2^asvc 

BALR C1,C2 

DC AL2 ( SVC- code-number) 

Exit Conditions 

Return is to two bytes after BALR. 

Routines Called 

None 

Global Variables 

SVCINST SVC Instruction to Transfer to Executive 
(Communications Area) 

Logic Diagram 

Chart 82 shows the detailed logic diagram for the SVC Director routine. 



HBO 






***<>****4i«*4>*4>* 



<svc 



« •MO *** 

* « * * 
IS THIS •X CO* 

• CALL/360-OS7 ♦ • • 



♦CO*..X* CALL SVC * 

♦ • ♦ SIMULA tOR • 



***«>*«*«««*«««i4i 



RETURN 



*«•«****•«*«**« 



«•«•«««*««••«** 



* ♦ 

* ♦ 

* EXECUTE SVC * 



Chart 82. SVC Director 
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